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SPECIAL NOTE 

To write an adventure program, you need 
to know a bit about the language BASIC. 
You can still have fun with this book, 
though, without knowing any BASIC, by 
typing in and playing thegameWaunfed 
House which was written specially for it. If 
you want to learn or improve your BASIC, 
there are two Usbome books to help you: 
IntrcKluction to Computer Programming 
andBetter BASIC. 
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About this book 

Writing an adventure game from scratch is 
quite a daunting task, especially if you are 
new to computer programming. This book 
allows you to start as gently as you like by 
giving you an adventure listing which you 
can type in and play, change and add to as 
much as you like, or use as a skeleton 
program for your very own adventure story. 

The game written for this book is called 
Haunted House and you will find the main 
listing for it on pages 33-38. This will work 
on any computer which uses Microsoft- 
style BASIC, including BBC, Dragon, Oric, 
TRS-80 and expanded VIC 20, and has 
changes to make it work on a 48K Spectrum 
(Timex 2000). A special ZX81 (Timex 1000) 
version of the game is listed on pages 39-45. 
Turn straight to these pages if you want to 
play the game before you find out how it 
works. It is a specially good idea to do this if 
you've never played an adventure game . 
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If you are used to looking at program 
listings, you will probably pick up a few 
clues about how the game works as you 
type it in. To avoid this , you could try to 
persuade someone else to type it in for you. 

As the program is so long and 
complicated, you will need to type it in 
extremely carefully. It is worth typing 
slowly and checking each line as you go, as 
^ou only need do it once. You can save the 
jrogram on tape for when you want to play 
^t again or produce sci adapted version. 




On pages 6- 15, you will find out how to 
plan an adventure and on pages 16-27 how 
to structure and write the program for it. 
You may find this section quite difficult. 
Don't worry if you do, just work through 
each bit slowly and carefully until you feel 
you have grasped the ideas in it, then go on 
tothe next bit. 

As you work through these pages it is a 
good idea to write a practice game of your 
own, following each step carefully. Don't 
worry if it isn't a specially good game; it will 
help you to understand how the program 
works and see the problems you need to 
solve in order to write an adventure, A good 
adventure needs careful planning to make 
it interesting and exciting to play. 
Remember, you don't need to touch your 
computer until you have planned your 
game down to the last detail. 

You will find some extra tips and hints on 
adventure writing on page 46, and on page 
47 there are answers to the puzzles set in the 
book. 

After playing Ha an ted House a few 
times, you w^ probably want to make 
changes to it. Pages 28-3 1 give you some 
ideas for producing your own version. ^ , 



What are the rules? 

If you have played an adventure game 
before you will know what to expect 
tiom Haunted House. If you haven't, all 
you need to know is that the computer 
will ask you what you want to do and you 
tell it, using not more than two words. 

It is a good idea to pick up anything on 
the way that looks valuable or useful and 
to try using these things in any way you 
can think of to solve the problems you 
encounter. Type SCORE to find out how 
many points you have and if you have 
won. 





What is an adventure game? 



An adventure game is like a story in which 
the player is the hero. Unlike a book, where 
the sequence of events is fixed, an 
adventure game is different each time it is 
played because the player chooses what 
happensat each stage. By givingthe 
computer instructions in response to 
descriptioi\s which appear on the screen, 
the player goes on a dangerous journey into 
an unknown land. The aim is to survive 
whatever dangers may arise and return 
with treasures. 

The first adventure game was written in 
1976 on a mainframe computer at Stanford 
University in the U.S, A. by William 
Crowther and Don Woods. It is often 
referred to as Colossal Ca ve, Colossal or 
justed venture, and a version of it is now 
available for most home computers. It was 
written in the scientific computer language, 
Fortran, which, unlike BASIC, cannot 
handle words. All the data for the game 
had to be indexed and stored on disc. 

The first people to play adventures were 
computer professionals, as home 
computers did not exist. A version of 
Crowther & Woods' adventvure is still 
included with most large business 
computer systems to show people who are 
not used to computers that they can be 
"friendly". These disc-based adventures 
often occupy more than 250K and aie very 
complicated to play. 

Micro adventures 



The term "adventure" is now used to 
describe a wide range of different games. 
The game in this book is a traditional text 
adventure based on the Crowther & Woods 
type of game. The player takes the leading 
role in the story, but he is not given a set of 
attributes as in role-playing games. The 
player uses his own inteUigence, cunning, 
and so on, not those of a character assigned 
to him at the beginning of the game. Like 
chess, traditional adventures are "mind" 
games, involving puzzle-solving rather than 
quick reactions or chance. 

Graphics adventures 

The original adventure did not use any 
graphics, relying instead on the player's 
imagination to conjure up the monsters and 
other terrors that make up the game. Some 
people think that a game with graphics is 
not a true adventure, though there are some 
very good graphics adventures now 
available for micros. If you have sufficient 
memory, you could add graphics routines 
to your adventures or to the Haunted House 
program in this book. This book does not 
explain how to do this because 
graphics instructions vary so much 
from computer to computer. 
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There have been many adventures since 
this first one. Perhaps the most famous are 
those written by Scott Adams, an American 
programmer who was the first to produce a 
version oiAdventure for a small micro. This 
was Adventure Land for the TRS-80. Other 
Scott Adams' adventures to look out for are: 
Pirate Adventure, The Count axidPyramid 
ofDoom. 




What kind of program is it? 

An adventure program is really a kind of 
database. A database is a computer filing 
system which stores information and 
allows it to be called up in a variety of 
different ways, and it can have all kinds 
of serious uses. An adventure program is 
an "interactive" database. The player 
moves through it, altering or "updating" 
information as he does so. As you work 
through the book, you will see how 
particular words are used as "keys" to 
unlock certain items of information. This 
technique can be used to restrict access 
to certain information in a "serious" 
database. 

You can learn some useful 
programming techniques by writing an 
adventure. As the program is such a 
complicated one, it shows how important 
it is to plan it in detail before switching on 
your computer. It also makes you think of 
all the things a person using the program 
might try to do. If you work out a way of 
making the computer deal with any 
input, however siUy, you will be able to 
vmte programs which don't crash. 

Many of the adventures you can buy 
on cassette are written, at least partly, in 
machine code. This allows more 
information to be packed into the 
computer and makes the game nin 
faster. If you know a bit about machine 
code, you could experiment with adding 
machine code routines to your 
adventures. 



Turn the page now and start 
planiiing your adventure 
game. 




PLANNING A GAME 



Where to Start 



When you write an adventure game you are 
inventing a fantasy world where you make 
up all the rules. You decide where it is, what 
sort of creatures and things live there and 
what these creatures and things cein and 
cannot do. Your world can be an alien city, 
^ for instance, or an undergrotmd palace 




where elves, wizards and trolls live or a 
mysterious castle which is the home of 
dragons and other strange monsters. If^^ 
could even be a time in the past involving 
actual historical people and facts. 

Many adventures use magic of some 
kind. You can decide how closely your 
world sticks to the rules of the real world 
and how much magic is allowed. Whatever 
you choose to do, try to make sure the rules 
are logical or players will find the game siUy 
and frustrating. 

Having decided on a theme for your 
adventure world, youthen need to decide 
on the point of your game. The player might 
have to escape, or retium to a certain place, 
with treasures, or he might have to rescue 
someone, or find a secret place and do 
something there (such as defusing the Mad 
Scientist's Evil Device for Blowing up the 
World). 

Working out the locations 

The areas or rooms through which the 
player moves during an adventure are 
called locations. Later in the book, you will 
see how these are numbered to put them in 
the computer. For the moment, you need to 
remember that the number of locations you 
can have depends on the amount of 
memory youi computer has. More locations 
can make the game more interesting, but 
leave you less memory space for 
descriptions of them all. The game in this 



book has 64 locations with short 
descriptions. 

A location can be indoors or out and 
could be a room, a cave, halfway along a 
passage, an area of forest, the middle of a 
field, or anywhere else you like. It is best to 
decide on the number of locations early on 
and stick to it, as this affects the whole 
structure of the game. 

Making a map 

The next stage is to draw a rough sketch 
map of your world. It need not be accurate 
to the last detaO but stiould show the overall 
scale. While you are doing this, think of 
some ideas for good hiding places for 
treasures and other objects that the 
adventurer vrill need. 

Here is a rough sketch map for the 
Haun ted House adventure written for this 
book. 
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Kitchen 







Spirol 
stxiircase 



Dark hall 
Locked door 
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Ha un ted House is set in a weird house 
standing on the edge of a sheer cliff. Its 
strange twisted turrets loom out of an 
always gloomy sky. No wall seems straight, 
no corner a right-angle. Not surprisingly no 
one lives there - well no human that is . . . 

People say the richest man in the world 
spent his last days there. Strangely, no one 
ever saw his body . . . 
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Ideasfor themes 

If you're stuck for an idea for your 
adventure game, think of films or TV 
programmes you have seen or books 
you have read. Remember, though, if you 
are writing a game to sell, you must not 
stick too closely to the plot or use the 
same names for copyright reasons. 

Here are some ideas for adventure 
themes. 

DETECTIVE STORY - the player is a 
detective investigating a terrible crime. 
The object of the game is to get back to 
police headquarters with all the 
evidence. (The items of evidence are the 
"treasures".) 

PREHISTORIC ADVENTURE - the 
player has travelled through time to the 
days of cavemen. The object is to return 
to the present with The Stone, an object 
of immense power. The adventurer has 
to make his own weapons and anything 
else he needs, just as the cavemen do. 
Prehistoric beasts and cave magic are 
among the obstacles. 

TEMPLE TERROR -the ancient ruins of a 
temple built by a mysterious, long-lost 
race are reputed to contain the secret of 
eternal life. Just hearing about the things 
that are said to have happened there 
makes your hair stand on end. The object 
is to escape with the secret. 



PLANNING AGAME 



Drawing a grid 



The first stage in turning your adventure 
world into a computer game is to transfer 
your sketch map to a squared up grid. You 
need one square for each location, so for its 
64 locations, the Ha un ted House game 
needs an 8 x 8 grid. 

This grid will become the master plan for 
your adventure, so make it as large and 
clear as possible. Eventually it wiD show all 
the locations and the ways in and out of 
them, and all the treasures and objects used\ 
in the game. 

Number each location, starting in the top 
left-hand comer. Most computers start 
counting at zero, so use zero as your first 
location number. 



Working out the routes 

Mark the exits from each location on your 
grid, like this. 

Notice that some locations on this grid 
have one-way routes, so the player cannot 
return the way he has come. Make sure 
there are reasons for these if you use them 
in your adventure, even if the reasons are 
magic. In Ha un ted House the front door 
slams and locks behind the player once he 
has entered, so he cannot go out again. The 



tc 



♦> 



& 


1 


A 


J 


# 


r 


4]7 


f 


' 


/« 


a 


ti. 


n 


« 


IT 


/t 


/T 


/* 


n 


io 


21 


11 


aa 


24 


Zf 


n. 


iT 


2X 


3S 


y> 


51 


» 


» 


H 


sr 


H 


37 


sr 


m 


fO 


* 


« 


4% 


if 


*S 


^ 


47 





49 


JO 


sr 


52 


53 


Jf 


ss 


A 


ST 


$9 


5? 


e> 


U 


a. 


i3 




^^1 


BH 


1^1 


^^1 




^^1 


^1 



You may want to change the position of 
walls and doorways when you work out the 
routes the player can take, so start by 
pencilling your map Ughtly onto the grid. 
Label each location with a short 
description, eg "dark cellar" or "dusty 
room" and then think about the ways in and 
out of each location. The usual way of 
marking these is to use points of the 
compass - north being towards the top of 
the page, south down, east to the right and 
westto the left. 

By including staircases, ladders or 
trapdoors in your descriptions, you can use 
up and down for some of your routes 
instead ofcompass points. This makes the 
game more interesting without the need for 
a real 3D grid. 
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marsh at locations 53 and 54 is also a one- 
way route, because the boat gets stuck. 
How many one-way routes can you think of? 
When you have settled on your routes, ink 
in the walls and staircases to ht in with them 
and make a chart, like the one on the right, 
listing the location number, its description 
(this need not be your final version) and 
its exits. You wiD find this helps enormously 
when you start writing the program. 
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To help you see how the informafion fits into 
the program, you could complete this chart 
usingthemaponpagesl4-I5 and check it 
against the listing on page 37. 
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It is possible to construct real 3D 
adventtures which are set on several 
levels like the storeys of a house. To do 
this you need two or more interlocking 
grids. Such games need a lot of memory 
(48K is probably the minimum to make it 
worthwhile) and can get very 
complicated to write. 



PLANNING A GAME 

Hiding thetreasure 

Having mapped out your adventuie world, 
you need to come back to thinking about 
what the player has to do in it. In many 
adventures, the player has to find valuable 
objects of some kind and take them 
somewhere. These could be "real" 
treasures, like gold and jewels, or they 
could be something like secret plans and 
documents, or items of evidence to help 
solve a crime. If the purpose of your game is 
to rescue someone, then count this as 
having one "treasure". 




You can have general 
obstacles and traps in your 
game too; they don't all have 
to be Lnked to a particular 
treasure. Haunted House 
has a marsh for instance. 



Adding "props" 

You need to decide what treasures to have 
and where to hide them. Hiding the 
treasures will probably involve including 
some "props" in yotir plan. These are 
pieces of furniture, carpets, hems of 
clothing and so on which the player can 
open or examine, but which cannot be 
taken away from the location in which they 
are found. HauntedHouse has a coffin as 
one of its props. 
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Some ideas to think about 

Can you think of some "treasures" to fit 
with these game settings? 

1. The headquarters of an international 
crime syndicate. 

2. A distant planet which is known to be 
more technologically advanced than 
Earth. 

3. A secret scientific research 
establishment. 

Now can you think of some good 
obstacles to getting them? 



Setting problems for the player 

Next you must think about the problems the 
player will have to solve in order to find and 
carry away the treasures. The cleverer and 
more original the problems you invent for 
the player, the more interesting the game 
will be to play. The solutions to many of the 
problems will involve other objects which 
the player must find and then use in the right 
way. You will find out about "useful" objects 
over the page. 

Make a list of your valuable objects and 
munber them, starting with 1 this time. (You 
will find out why on page 16.) List the 
objects in order of value as this wiU be 
useful later on for setting up the scoring 
system. This is the start of the list of words 
you want your computer to recognize . 

Make a note of the obstacles to getting 
each treasure too. You might have a 
monster guard, for example, or a mad axe- 
wielding troE. Treasures might be in locked 
drawers, or in safes. They may prove 
impossible to carry without a container of 
some kind which is hidden elsewhere. On 
the left are some puzzles you can think 
about. 
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6. Bag of gold coins 

You need a light. 



5. Ancient scroll 

Guarded by bats. 
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3. Book of magic 
spells 

Hidden in secret 
room behind false 
wall. 
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[4. Jewelled 
goblet 

Guarded by paralysing 

spirits and locked 

door. 



lark your "treasures" on your master plan, 
using the numbers assigned to them on your 1 
list. Then write the number of the location 
next to the object on your list too, (You can 
only have one object in each location.) 




Detective game puzzle 

In this game the valuable objects are: 

1. Single red hair 

2. Brown wooUen thread 

3. Footprint 

4. Set of fingerprints 

5. Blood stain 

6. Heavy wooden stick 

The obstacles to getting these are: 

1. The hair will get damaged or lost if you 
take it as it is. It is on the sleeve of a coat. 

2. The thread, invisible to the naked eye, is 
on the inside edge of a locked drawer. 




7, Ebony statue 

You need a light. 




2. Diamond zing 

Hidden in 
cofGn. 
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Oil painting 

Guarded by 
magical barrier 
and locked 
door. 



3. The footprint is in a flower bed outside a 
window. 

4. The fingerprints are on the surface of a 
large table next to the body. They are 
invisible. 

5. The blood stain is on the carpet. 

6. Touching the stick will destroy any prints 
which might be on it. 

What solutions can you think of? There are 
some suggestions on page 47, though yours 
might be belter. 
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PLANNINGAGAME 



Useful objects . 



To help the player solve the problems you set, you will have to include some tools, 
weapons and other useful objects in the game. The player must find the appropriate 
objects and use them in the right way to get round the obstacles. You can test the 
player's ingenuity by not including the most obvious objects. Instead of a key, for 
example, you could include a hairpin or paperclip for opening a locked door. You can 
make things more difficult, too, by hiding, say, a torch in one place and the batteries forit 
in another. The player must find both before he can use them. 

Add your objects to the word Ust you started tor your treasures. Don't forget that some 
of your treasures can have uses too. (You don't need to list them twice.) 
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Haunted House problems and solutions 

Here are the solutions to the Ha un ted House game probleitis 
and the objects needed for them. 




Problem 
Too dark to see 



Bats 

Secret room 
Locked door 
Paralysing ghosts 

Magical barrier 

Marsh 



Barred window 
Coffin 



Solntion 

Put candle in candlestick 
Light candle with match 



Spray with "Baticide" 

Break down false wall 

Unlock 

Suck up with vacuum cleaner 

Use magic spell 

Get across in boat 

{Can only be used once as 

it gets stuck in mud) 

Dig rormd edge to remove bars 

Open lid 



Objects needed 

Candle {hidden in desk drawer) 

Matches 

Candlestick (already in 

valuable objects list) 

Aerosol can 

Axe 

Key 

Portable vacuum cleaner 

Batteries 

Book of magic spells (already 

in valuable objects list) 

Boat 



Shovel 
Nothing 




/ ^ 1 

3cide where the objects are to go'and 
rk them on your master; plan. They will 
tless conspijbuous if youiput them in 
ices where people would expect to find 
pern, e.g. knife in the kitchen, book in the i' . 
' ^dyor libra^, axe near the woodpile. You,i ij 
itiight want t<^ add extra props (see previous ^ ' ' " 
page) at this fetage. Ha un ted House has 4 
i :<desk in whi^h the candle is hidden, \ 

/fcemember hot to put your objects in \ 
- 'nmpossible (places. It is no good puttingthe 
light behind a locked door and then putting 
the key in i. dark room. 

Put the dumber of the location next to 
each object. Add to your list any other 
words (not verbs) that you will want the 
computer to understand, too e.g. north, 
south, ghosts, bats, coffin. (Remember to 
include all your props.) ; 




Object 
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Eost 

UP ,n 

poWn 
poor 
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. . .and what can be done with them 



^r 




Now you have decided on the objects to go 
in your game, what are you going to let the 
player do with them? You need to make a 
list of verbs and the things they apply to. 
This should include "going" verbs too, so 
that players can give instructions about 
where they want to move to. 

Many advennire programs are 
constructed so that the computer accepts 
commands of not more than two words from 
the player. It checks the first word against a 
list of verbs you have put in its memory and 
the second against the object and direction 
words you have given it. A lot of the fun in 
writing adventures is trying to think of all 



the combinations of verbs and objects that 
the player might try and deciding on what 
action or reply the computer should give. 
Writers of business programs need to think 
in this way too, to prevent their programs 
crashing because of an unexpected 
response from the user. 

To deal with verbs (and objects) which , 
the computer cannot find in its memory, 
you can include general replies, such as 
"Do what with the (object)?". Group 
together verbs which mean the same 
thing, such as get and take. You wOl be 
able to save memory space by sending 
the computer to the same routine for both. 
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Haunted Houseverb list 

Number your verbs starting with 1. (The 
computer uses zero for "verb not found", 
as you will see on page 16.) HELP and 
INVENTORY {or CARRYING?) are 
standard adventure game features so 
include them in the verb list. It is also 



Verb 

niunber Teib 

— 

1 
2 
3 
4 
8 
6 
7 
8 
9 
10 



11 
12 

13 

14 

IS 
16 
17 

18 
19 

20 
21 

22 

23 
24 
25 



HELP 

CARRYING? 

GO 

N 

S 

w 

£ 
U 

D 
GET 

TAKE 
EXAMINE 
OPEN 
READ 

SAY 
DIG 
SWING 

CLIMB 
LIGHT 

UNLIGHT 
SPRAY 

USE 

DNLOCK 

LEAVE 

SCORE 



AppU^ to 



DIRECTIONS 



OBJECTS 

OBJECTS 
ANYTHING 
DOOR, DESK 
BOOKS, SPELL 

ANY WORDS 

AXE 

ROPE 
CANDLE 

CANDLE 
AEROSOL 

VACUUM 

KEY. DOOR 
ANY WORDS 



useful to add shortened forms of GO 
NORTH etc. (see verb numbers 4-9 in the 
chart). These reduce the amount of 
typing the player has to do and make the 
game faster to play. 



Action (conditions, if any, in brackets) 

Used to indicate "verb not found" 

Lisis all verbs the computer knows 

Lists all the objects player is carrying 

Moves position 

Shortened form for "GO NORTH" 

Shortened form for "GO SOUTH" 

Shortened form for "GO WEST" 

Shortened form for "GO EAST" 

Shortened form for "GO UP" 

Shortened form for "GO DOWN" 

Pick up object and take it with you 

(Objea must be in the location) 

Same as GET 

Reveals any concealed object 

Opens door or drawer (must have key for door) 

Displays written clues {must have book of spells 

or be in library) 

Says words typed "out loud", e.g. casts spell 

Makes a hole (must have shovel and be in ceDar) 

Breaks down false wall (must have axe and be 

in study) 

Go up or down rope 

Turns light on (must have candle, matches and 

candlestick) 

Turns light off (must be carrying lighted candle) 

Removes bats from rear tower (must have 

aerosol) 

Sucks up ghosts (must have vacuum and 

batteries) 

Opens doox (must have key) 

Leave object behind (must have object) 

Prints out score 




PLANNINGAGAME 

The master plan 

Your master plan and the lists you have 
made contain ail the information, or data, 
needed for your program. Here is the 
completed master plan for Haunted 
House. (Don't worry if your master plan 
doesn't look as elaborate as this.) Over the 
page, you will find out how to put this data 
in your computer. Before you touch your 
computer, though, make sure you have 
planned out your game to the last detail. 



r 




Adventure brain teasers 

Here are some situations players might 
perhaps find themselves in during an 
adventtu-e. See how many solutions you 
can think of for each one. There are 
some suggestions on page 47. 

1. You are trapped in a room about 
three metres square. There are no 
doors. There is a thick carpet. 

2. As you enter a room, a feeling of 
extreme drowsiness comes over you. 
You are carrying a small, but quite 
heavy, rucksack and a handkerchief. 

3. You are standing on the battlements 
of a castle. Beneath you is a horde of 
angry slaves and behind you armed 
soldiers. You have a parchment scroll 
in your hand. 

4. You have been invited to dinner by 
the evil arch-villain. He has taken away 
all your weapons. As dessert is served, 
he shows you the remote control for his 
world decimator weapon. 
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STORING THE DATA 



Putting the data into the computer 



You now have all the data for your 
adventure written out on pieces of paper. 
The next problem is to work out how to put 
it into the computer's memory. 

The computer needs the data stored in 
such a way that it can gel at each item 
quickly and update things as the pJayer 
progresses through the game. To do this, 
you set up storage areas called "arrays" in 
the computer's memory. An array is like a 
set of pigeon holes or fUing boxes. You 
give each array a name and each box in it a 
number, so the computer can find the box 
you want when you refer to it in your 
program. 
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Before you can give the computer any 
data, you must decide how big each array 
should be and tell the computer to reserve 
and label that much space. This is called 
"dimensioning" the array and is written 
DIM in BASIC. 

The arrays for Haunted House 

Haunted House needs the following arrays 
to hold its data. You will need similar arrays 
whatever the theme of your adventure. 

1, An array to hold the descriptions of the 
locations. It needs 64 pigeon holes (one for 
each location). We've called it D$C ) and 
numbered the holes to 63 as on the master 
plan. 




2. An array to hold the information about the 
routes the player can take from one location 
to another. This is R$( ). It needs to be the 
same size and numbered in the same way as 
D$( ). 

3. An array for the objects and other words 
on the word list. By dimensioning this DIM 
0$(W), where W is the number of words on 
your list, the computer wiU set up an array 
with one space for each word and an extra 
space. This is because it always starts 
numbering with zero and ends with the 
number in the DIM statement. This is useful, 
because the zero space can be used for 
"word not found in memory", 

e.g. If W=:4, the array would look like this. 
DIM 0$(4) gives five spaces labeDed 
to 4. 



.1 




4. A verb array. This needs a space for each 
verb and an extra space for "verb not 
found". It is called V$( ) and needs to be 
dimensioned DIM V$( V) where V is the 
number of verbs on your list. 

More arrays 

Locations, routes, object words and verbs 
are not the only information that needs to be 
stored in the computer. You also need 
arrays to store information about where the 
objects are, which objects the player is 
carrying and such things as whether the 
light is on or off. 

There is no need to store the object and 
location words again. This extra information 
can be stored as numbers to save space, 
e.g. object 9 is in location 10, 

Array L( ) shows which location each 
object is in. It only needs spaces for the 
"gettable" objects such as the key, not the 
props or other words. If G is the number of 
gettable objects then tlus array is 
dimensioned DIM L(G). 

Array C{ ) is for information about which 
objects the player is carrying. This also 
needs spaces only for the gettable objects, 
so is dimensioned DIM C{G). 




Flags 

As well as keeping track of the things the 
player is carrying, the computer needs to 
be able to record other changes that 
happen during the game, e,g, whether the 
candle is alight, the door locked or the key 
visible. 

This can be done by using an array, F( ), 
of markers or "flags", which contains W 
spaces, i,e. one for each object word. By 
putting Is and Os in these spaces, the 



computer can see what state the object is in. 
is used for the "normal" or "inactive" state, 
such as hght off, object visible. 1 shows the 
"active" or "not normal" state, such as Ught 
on and object invisible. 




-^^ <Q^ 



Did you know that computers 
have flag registers in their 
CPUs which work like this flag 
array? They use them to store 
information about what is 
happening while a program is 
running. 




Why not use 2D arrays? 

If you have come across arrays before, 
you may have wondered why single 
dimension arrays are used for the 
Haunted House descriptions and routes 
instead of two-dimensional arrays, 
which would look like this: 




The reason is that single dimension 
arrays use slightly less memory space. 
You could use 2D arrays if you wanted to, 
in which case you would dimension them 
DIM D$(8,8) and DIM R$<8,8). 
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STORING THE DATA 

Putting the data into the arrays 

Having set up labelled storage areas in the 
computer's memory, you need to tell it what 
to put in them. One way of doing this is to list 
the data, in order, and tell the computer to 
loop round putting one item at a time in the 
spaces in an array. * Here is how this is 
written in BASIC: 



DIM D$(H) 

DflTfl PftIHTlNS,R!HG,HfiSIC SPELLS, BOBLET, ETC. 

FDfi 1=1 TD H 

READ 0$(n 

NEU I 




First time round, 1= 1, so 1 
PAINTING is put in 
0$(1). Computer goes 
back for the next value of 
I and puts the next item, 
BUNG, in 0$<2) and so on. 



Loop starts with 1 for 
object, verb and the 
three number arrays, so 
computer leaves space 
zero empty. For location 
and route arrays, loop 
starts at zero. 
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This is the loop for RE ADing the DATA into 
0$( ), Look at lines 1600 to 2 100 in the 
program listing on pages 36 and 37 and see 
if you can pick out the data loops for the 
other arrays. 



Data for the flags 

The data for the flag array, F( ), consists 
only of Is and zeros. Objects which are 
invisible at the start of the game have I in 
their box in F( ). When they are discovered 
by the player the flag changes to zero. All 
the other objects start with zero. 




You only need to tell the computer which 
boxes in F( ) need Is in them. Leaving the 
rest empty is the same as filling them with 
zeros. The easiest way to fill this eirray is as 
shown in line 2090 (on page 37). 

You may have noticed that some spaces 
in F( ) are not used because some objects 
do not change their "state". These spare 
flags can be used for other things. For 
instance, in Haunted House, F( 14) (the rope 
Dag) is used to show whether the player is 
up the tree. The candle needs two flags - 
one to show if it is visible and another to 
show if it is lit. The spare flag F(0) Is used for 
lighting it . If you want a spare flag for 
something, use the ones for words that 
won't need them, hke "north". 

Data for the carrying array 

The player isn't carrying anything at the 
beginning of the game, so to show this the 
array C( ) is left empty. When an object is 
picked up the computer puts a I into its box. 
So, no data lines are needed for array C( ). 

Initialization 



Setting up the arrays and filling them with 
data is called "initialization". You can see 
in the next section where this fits into the 
program structure. 



*TheZX8I (Timex WOO) does not do this, seepage39. 



WHITING THE PROGRAM 



The program structure 



In order to arrive at the overall structure of 
the adventure program, you need to think 
about the jobs the computer has to do 
during the game. 



information res W 

list of words Q""^/',;' *.^e sense, then 

jngrrucfions.fEft''^u ^^^^^^ ^^ 

6b.,finStrucrfions ^^jce^^" ;,^, ocfion. 
subroutine TO raKeupp f- 

7ijsesubroLrfmesto+ot(ea^ 
8 GobQcKto^. 



The Ust above shows the order in which the 
computer needs to do things, but not 
necessarily the order in which they need 
appear in the program. A large chunk of the 
program is the initialization routine which is 
only needed once each game, and, 
although it is the first thing the computer 
must do, it is a good idea to put it at the end 
of the program. This is because every time 
the computer is told to GOTO or GOSUB it 
goes back to the beginning of the program 
and checks through each line number until 
it finds the one it wants. This can take a 
noticeable amotmt of time in a long 
program. By putting initialization at the end, 
the computer does not have to check 
through it each time the player makes a 
move. 



The structure of the program actually looks 
like this. As you can see, the biggest part of 
it is the subroutine section. There needs to 
be one subroutine for each verb used in the 
game. You will find out more about these on 
page 25. 
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WRITING THE PROGRAM 

Getting into the program 

Now you have an overall idea of what the program will be like, you can start thinking about 
each part in more detail. You have already seen on pages 16 to 18 how the initialization 
section works. The next eight pages describe how the other main parts of the program 
work. 

Description and feedback 

Every go, the computer must tell the player where he is and the direcions in which he can 
move. It must also tell the player what happened as a result of his last ii.structions. This is 
the description and feedback section and it looks something like this. See if you can 
identify each part in the program Usting on pages 35 to 37. 

RM is the number of the location the player 
is in, You must remember to set a starting 
value for this in the initialization routine. (For 
Haunted House 57 is the starting value for 
RM. see line 2090). 



The computer looks in D$ (the array 
containing all the descriptions) and prints 
what It finds in the box with the value RM, 




Looks at the length of the string in box RM m 
the routes array, R$, The computer then 
loops round this number of times, printing 
out each character in R$(RM) m turn, 
putting a comma and a space between each 
one. 



Ijoops round to see if there is an object with 
a zero flag in the location (i,e, a visible 
object) and prints out its name if there is. 

W\$ is a variable used to contain messages 
the computer has for the player, as a result 
of instruc lions given in the previous go. 
Look for M$ in the program listing on pages 
33 to 37 and see how different messages are 
put into M$ depending on what the player 
typed. 

At the beginning of each go, M$ is set to 
"WHAT?", so if there is no new message to 
replace this, the computer just prints 
"WHAT?" 



Right -I'll Wke 
" WHAT?" out. 



The input section 

An important feature of adventure games is the way the computer responds to instructions 
typed into it by the player. Ha un ted House, like many adventures, limits the player to 
two- word sentences, plus a few special one-word commands such as HELP. The next 
section of your program must ask the player for instructions and then tell the computer 
what to do with them. 

To start with the computer needs to split the player's input into two words which it can 
then check against the words it has in its memory. The "word-spUtter" routine used in 
Haun ted House works by scanning the player's input untO it finds a gap in the letters. It is 
listed below with a few extra lines so you can type it in by itself amd see it working. * 



100 as 

110 PRIHT "PLEASE TYPE SOHETHING' 
120 IKPUT Q* 
130 Vt="' 
140 Nt="' 



150 FOR 1=1 TD LENIBt) 



160 IF H!D*(Q»,I,n=' • m Vi 
" THEN Vt=LEFTt(B»,l-U 



\ 




I've found 
a space ' 



Gets player's instruction and puts 
, it m Q$. Sets up two new string 
variables: V$ and W$. 

Looks to see how many 
characters there are in Q$ and 
■ starts a loop which goes round this 
many times. 

. Looks through Q$ for a space. If it 
finds one and V$ is still empty, it 
puts all the letters to the left of the 
Ispace into V$. 



These line numbers 
do not correspond 
to numbers in main 
program listing. 




Continues to look through Q$ until 
it finds a letter following a space. 
It then takes everything to the 
right of this space and puts it in 
W$, (This means it doesn't matter 
how many spaces the player 
types between his two words. ) 



no IF HID* (8», It!, DO" ■ fiHD W>" TttEH »t=«IDI 
(Bi,Itl,LEN(8»-U;I=LEH(at), 




180 NEH I 
190 IF «=■ 



THEN Vt=&t 



J 



200 HJ=' THESE ARE YOUR 2 WORDS' 

210 PRINT "FIRST NOR!}="iV* 

220 PRIHT "SECOND HDRD='iK» 

230 IF N«="" THEH tl*="YOU ONLY TYPED ONE NDRD" 

240 IF H»=" AHD VJ="" THEN Ht="YDU DID«'T TYPE 

flNYTHINB" 

250 PRINT Mt 

260 STOP 



When V$ and W$ are bothfiUed. 
the loop counter is set to its 
' maximum value to end the loop. 

, If the computer didn't find a gap m 
the letters then V$ and W$ will 
still be empty when the loop has 
finished. It then takes the whole of 
0$andputsitmV$. 

This section is so you can run the 
word-splitter by itself. It prints out 
■ messages depending on what 
you typed in. Run the program 
and see what happens. 



*NB This will not work on Sindair(Timex) computers. Seepages 38 or 39. 



21 



WRITING THE PROGRAM 

Analysis of input 

The computer now has the player's instructions stored in two strings V$ and W$, which 
stand for "verb string" and "word string" . Its next job is to check these against the words 
you have given it in the initialization procedure on page 18. It assumes the word in V$ is a 
verb and loops round seeing if it matches any of the verbs in the array V$( ). (Notethe 
difference between the string variable V$ and the array V$( ) - they are completely 
different things to the computer, so make sure you don't confuse them.) 

The computer then loops round in the same way trying to match up W$ with one of the 
words in the array 0$( ). 

Here is the section of program which checks for a match between the player's words 
and the words in the computer's memory. 



10 VB=0 



VB is a new variable set up to record the 
box number containing the matching verb. 
If the player typed GET, for example, the 
computer looks through V$( ) until it 
reaches box 10 where GET is stored, So, in 
thiscase, VB=10. 




found 
if - its 
in 10. 



^ 



20 FOR 1=1 TD V 

3Q IF V»=V»n) THEN VB 

40 HEKT I 



50 0E=0 

60 FOR I=! TO It 

70 IF NI=D»n) THEN DB=! 

80 NEH 1 

What if the words don't match? 
If no match was found, then VB and OB vrill 
stiD be zero. The computer takes this as 
meaning that box zero in the array contains 
the match for the player's word. But when it 
looks there to find out what the matching 
word is it doesn't find anything because you 
left this box empty when filling the arrays 
with data. 
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There's 
nothing 

there. 




The computer loops round V times (V is the 
number of verbs in the computer's 
memory), comparing the player's verb with 
each of those m its memory, Ifit finds one 
that matches, it sets VB to the appropriate 
number. 

The loop for W$ works in the same way, 
using OB to record the box number of the 
matching word. 

Silly combinations 

Notice that this matching-up process only 
checks if the two words are in the 
computer's memory. It doesn't check to see 
if the combination of words makes sense. A 
silly combination such as UNLOCK 
CANDLE gets through tliis stage of the 
program, but will be rejected later on when 
-the computer tries to carry out the action. It 
is much quicker just to check the separate 

ords at this stage than to tell the computer 
to check for valid combinations. 

At the end of this section of the program, 
the computer has a value for VB and a value 
for OB. You can see what it does with these 
overthe next page. 



Setting up error messages 



The computer can use the values of VB and 
OB to see if the player needs to be sent a 
niessage saying his instructions are no 
good. This part of the program is like a filter 
or grader. The player's ii\stnictions are fed 
through a series of tests. If they don't pass 
one of the tests, a new message is put in M$. 
If they pass through all the tests, MS still 
contains the message "WHAT?" which was 
set up in line 220. (Remen±ier that, at this 
stage, the messages are just set up, they are 
not printed on the screen and may be 
changed again later in the program 
anyway.) 

Here are the program lines which set up 
the error messages in Ha un ted House - see 
if you can find them in the main listing. You 
will need similar hnes if you are writing your 
own adventure. 

Remember the message 
in M$ might be changed 
again later on in the 
program. 



object to the zero and produce an "on 
range" error. To get round this, VB is 
changed from zero to a value greater than V 
(the number of verbs in the computer's 
memory), and the computer is sent to a 
"dummy" subroutine. 



;^ 



IF «»="" THEN ft$="! NEED TItO HDRDS" 





This line sets up a message if the player 
only typed one word and so W$ is empty. (If 
the word is one of the allowed one-word 
commands, this message will be changed 
later in the program.) 



• IF Nt>" AKO 0B=0 THEH H»=" THAT'S SILLV" " 



If VE>V m GB>0 THEN Ht="YOU CAH^T'" 
■tB*+'"" 




You con't 
"kiltghosts". 



The first test looks to see if there is a word in 
W$ (i.e. that the player typed two words) 
and then checks if the value for OB is zero. 



This line sets up a message if the computer 
doesn't have the verb in its memory, but 
does have the object. 




This line is to overcome a problem. You 
cannot GOSUB on a value of zero. But 
different B ASICs vary in the way they cope 
with being asked to do this. Most of them 
ignore the GOSUB and cany on to the next 
line. Some, however, such as the BBC, 



If the computer doesn't have either of the 
player's words in its memory it sets up this 
message. 
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WRITING THEPROGRAM 



IF Vfei' fiND OBhi flND C(0BK>1 THEN fl$= 
• "YOU DON'T HWE "0$(DB) ' 




Override conditions 

Sometimes things happen in an adventure 
which prevent the player from doing 
anything until he has dealt with them. In 
these circumstances, instructions which 
would normally be valid need to be 
overridden, so the computer needs 
program lines which set flags* in its 
memory to tell it that special conditions 
apply. 

In Ha un ted House, lines 420 to 450 are 
override conditions. You can see them on 
the right, with an explanation of how they 
work. 



420'Tr'"ii26J=i M W^ufmwm^myf 

ftND 1/B021 THEN «*="BftTS ftlTflCKINE!": * 
GOTO 90 ■ - - . 

430 IF Rf1=44 m RND(2)=1 AND F(24)<>1 

TheFi27}=l __^. • 

440- IF F(Ot=l THEN LL=LL-1 

450 IF LL<1 THEN F(0}=0 



« 




Line 420 

If bats are present, player is m Rear Turret 

Room, random number is not 3 and player 

hasn't used verb 2 1 (SPRAY) in his 

instructions, then M$ is set to "BATS 

ATTACKING" and player cannot go any 

further in the game. 

Line 430 

If player is in Cobwebby Room, random 

number value is 1 and vacuum cleaner is 

switched off, then flag is set for paralysing 

ghosts to appear, i.e. F(27)issetto 1. 

Line 440 

If candle is lit, then light limit counter, LL, is 

decreased. 

Line 450 

If LL is zero, then candle on/off flag, F(0), is 

set to zero. 

Perhaps you can think of other override 
conditions which could be added here. 



Branch to subroutines 

The computer's next task is to attempt to 
carry out what the player wants to do. If it 
had to search through every possible action 
until it found the one the player wanted each 
time, the game would be very slow and 
boring. To avoid this, you use lots of 
subroutines - one for ahnost every verb on 
the verb list, (A few, such as GET and TAKE, 
can share the same one.) 

You can then use an ON . . . GOSUB line to 
tell the computer to branch to a different 
subroutine depending on the value of VB. 



DN VB 60SIJB 500, 570,640, 640, W, 640, 



T'llV.l'<*IBr--i illH.-l'ilM'i-EiViV4lf»MnHlMlf fi 



1180, 1220, 1250, 1300, 1340, 13B0, 1400, • 



* See page 18 for more about flags. 



How the ON. . .GOSUB line works 



K 



The ON , . . GOSUB line on the opposite page works like this. If VB= 1 the computer goes to 
the first line number listed, if VB =2 it goes to the second, if VB =3 it goes to the third and so 
on. Notice that the last line number listed is a "dummy" subroutine for VB= V+ 1 (thevalue 
of VB when no matching verb was found in the computer's memory). The line it is sent to 
just says RETURN and so sends the computer straight back up the program again. 

Look at the subroutines on pages 34 to 36 and see if you can work out what they all do. 
Here is the procedure for LIGHT (VB= 19) as an example. You will find it at lines 1340- 1370. 




What happens jf the object is not candle? Back to the ma I n prog ram 



If the object the player wanted to use was 
not CANDLE, but one of the others in the 
computer's memory, such as DOOR, then 
the message in M$ is unchanged from when 
it was set up in line 220, When the computer 
returns to the main program and finds the 
instruction PRINT M$ it will print the 
message "WHAT?". 

Notice that there is no need to set up a 
message saying the candle isn't there, as 
this is already covered in the error 
messages section. 



Although some of the verb routines are 
longer and more complicated than this one, 
they all work in a similar way: the value of 
OB is checked, a special message is set up 
if necessary and then the computer returns 
to the main program. It checks the light limit 
at lines 470 and 480 and is then sent back to 
the description and feedback section. Here 
it prints out the message it has put in M$ and 
waits for the next set of instructions from the 
player. 



WRITiNG THE PROGRAM 

The GO subroutine 

The subroutine for the verb GO is so large 
and important in an adventure game you 
could almost think of it as a sub-program. 
Seven verb cominands are directed to it - 
GO, N. S, W. E, U and D. This routine is also 
special because it responds to single-letter 
direction commands as well as two- word 
ones. You don't have to include this facility 
in your program, but it does help make the 
game quicker and more interesting to play. 
If you've played many adventtires you will 
realize how tedious it is to have to type GO 
NORTH etc. every time. 
This is how the GO routine works. 



This is how the 
GO routine works. 




Line 640 




D--l^ north 
D'2^ sos/ff] 
0=3= west 
D'4 = east 
D-5= up 
= 6 = down 




MO t=a 

iSC IF W-f> THEN O-VB-;. 

M IF Of=l? IHEN 1=1 

m IF 0B=20 THEN D=; 

m IF m-2\ IHEN l)=3 

4?i) If 0B=:2 THEH D=* 

700 IF 0B=23 IMEK B=5 

JKi IF DB=24 IHEN [!=t 

720 IF Rtl=^2(i MD D=5 THEN 0=1 

m IF Rlt=20 MtD [=i IHEN C=; 

7(0 IF m-Ti m 0=6 IHEK D=2 

750 If liH=22 m C=5 THEN Si-i 

7iO IF fil1=36 AND D=o IHEN 1=1 

770 IF [lH=3i m [1=5 IHEM [)=; 

780 IF F(m = l THEN ««=■ CRASH 

! F (14 [=0: RETURN 

m IF F 1271 = 1 6NI1 RH=52 THEN Mt="GHOSTS KILL HOT LEI TOl) 

BOi;E':R£TU«N 

aOii IF RN=t5 ftND C(ll = i ftND F(J41=0 THEN H«="fi HABICflL 

mgm TO THE KSf:REIllBN 

eiO IF iflN=2i ftND F((ll=C"i flHB tD=l OB 0=41 IHEN lll='VOU 

NEED A LISHT'iRETUfiN 

820 If RH=S4 AUD CilSi -^sl IHEN Ml=-™'Re SritCkfiRETTO 

830 IF C 1151 = 1 AND NOI (l!N=5.i OR RH=54 Oft Rn=55 OR ftNM71 

IHEN M="sm cfiN'i am n m 

9<0 [F (fiHi26 AND RI1(30j ftND FiO)=0 IHEN H$="TQO Bfiltt ID 
«S!V£":SEILIRN 



You can see now why 
directions were 
included on both the 
verb and the object 
lists. 



VDll FELL DUI OF IHE TREE' 




First, a variable D is set up to hold 
information about the direction in which the 
player wants to move. Its values 1 to 6 
correspond to north, south, west, east, up 
and down. 



The next line checks to see if the player just 
typed one word and then gives D a value 
depending on the value of VB, (Notice that 
by taking 3 away from VB, the computer 
gets values for D which correspond to those 
in lines 660 to 710.} 



Lines 660-710 
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The next six hnes check if the player typed 
a two-word direction instruction. They use 
the vaiue of OB to set the value of D. 



As this is not really a 3D adventure, the UP 
and DOWN instructions need to be 
converted into north, south, east or west. 
Lines 720 to 770 do this. (If you check back 
to the master plan on pages 1 4 to 1 5, you will 
see that this does work.) 



Lines 780-840 

I 




F(14)'lso 
he's up the 

tree/ 


~^ 














ADIT 




i 

1 


.^ 


■t^2 






BM 



If the player is in location 52 and the ghost 
flag is "on" then a message is sent to say he 
cannot move. Each of these conditions 
returns the computer to the main program. 
See if you can work out what the rest of the 
lines in this section do. 



The computer also needs to check if there 

are any special conditions which affect the 

player's ability to move. For example if 

F(l4)= 1, then the player is at the top of the 

tree. If he tries to move without first 

climbing down, he gets a message saying 

he has fallen. ^^^ ^ a flag for the computer to use to register 

< whether it has found the exit the player wants. 
RL is a new variable which holds the length of the 
string which it finds in R$(RM), (This string is the 
routes, NSW etc. , for the location the player is in. ) 



If the move has not been stopped 
by any of these special 
conditions, the computer must 
check that there isn't a wall or 
anything else blocking the way. 
Here are the lines which do this. 
They look quite complicated at 
first sight, but if you look carefully 
at each part, remembering what 
all the variables are, you should 
be able to see what is happening. 



850 F(3S)=0!RL=LEN([?«(Rm}- 
860 FOR 1=1 ID RL " 



870 l)*=HIB*(R$(RHi,I,n ; 

830 IF (Ul="«" ft«D D=l AND F(35)-0: 

THEN RH=RM-B:F(35}=1 
890 IF (U»="S" fiND D=2 fl»0 F(35}=0: 

THEN RI!=RIH-a:F (351 = 1 
900 IF IUt="W' ftND I>=3 fiND F135)=0; 

THEN RB=RH-1:F(35S=1 
910 IF (U*="£" AMD D=4 ANO F(35} 

THEN RH=RI1+1:F(35!=1 
920 NEIT I 

930 H*="Dr 

940 IF F(35)=0 THEN «t="CftN' 

THAT NA^" 
950 IF D<1 THEN Ht='60 KHEfiE? 
960 IF RH=41 AND F(23}=1 

THEN R$(49)="SN':M*-"THE DOOR 
SLAHS SHUT! "iF (231=0 
970 RETURN 



f 



T BD"| j-: 



Computer loops round RL times, 

Each loop, computer takes one of the characters in 
R$(RM) and temporarily calls it U$. 

It then runs a series of tests on U$ and D. If the 
player's direction instruction matches an exit in the 
location he is in, then the value of RM is changed to 
move him to the appropriate place, FC3S) is then set 
to 1 to stop the computer trying to change RM again 
on another trip through the loop, ( If you think 
carefully, you will see that this could be possible as 
the computer uses its new value of RM in line 870. ) 

If you check the master plan, you will see how 
adding or subtracting 1 or 8 moves the player to the 
correct next location. 

At the end of the loop, M$ is set to "OK". This will 
replace the "1 NEED TWO WORDS" message set 
in the error messages if the player typed a one- 
word direction. 

If F(35) is still zero, then the direction the player 
wants to go is not allowed and M$ is changed to say so 

If D is less than one (i.e, it wasn't assigned a value in 
.lines 650 to 770), then M$ is changed to "GO WHERE?" 

This line makes the front door a 'dnce-only" route. 
When the player enters location 4 1 (the lobby), the 
exits from location 49 (front porch) are changed 
from "NSW" to "SW", M$ is set to "THE DOOR 
SLAMS SHUT" and the flag for the front door is set 
to zero to show the computer it is now closed. (The 
routes from location 4 1 do not need to be changed 
because S wasn't included m them in the first place. ) 27 
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MAKING CHANGES 



Changing the program 



You can change the program in this book as 
much as you like, either to produce 
variations on the haunted house theme or to 
create games with completely different 
settings, descriptions, objects, verbs and 
messages. Remember that the more you 
change, the more complicated it wiU get as 
you will have to think about how everything 
affects everything else. 

If you are going to write a new game, 
using this program as a guide, then you 
should plan it as described on pages 6 to 15, 
It is worth spending the time plarming out 
your game properly as you are less hkely to 
find it full of mistakes when you come to rvm 
the program. 

It is a good idea to start by making small 
changes first to see what happens, Ifyou 
store the master program on tape, you can 
make changes, test them and adapt them 
without losing the original. 



How much spare memory 
have you got? 
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The Haun ted House program itself 
occupies about TKof RAM before it is run. It 
then needs a further 3 Vz to 4K for the arrays 
to store the data. Your computer will take 
some memory for its own internal use - up 
to 3K on some models - and it will use a 
further IK or more for the screen. {The 
Spectrum uses 7K which is why Haunted 
House won't fit into the 16K model) So, if 
you have a 1 6K computer, you won't have 
much memory left over, and most of the 
changes you make will have tobe 
replacements rather than additions. 



Longer descriptions 

If you have more than 1 6K, one of the easiest 
ways of making the game more interesting 
to play is to add longer descriptions. 
Instead of "impressive vaulted hall" for 
instance, you could say something like "You 
have entered a vast, vaulted chamber with 
pillars extendmg many times your height 
above you. Light filters in from the east and 
there appears to be a doorway in the 
distance to the west , , ," 




Add a time limit 

Ha un ted House akeady has a time limit on 
the life of the candle. You could add an 
overall time limit to the game as well by 
getting the computer to count the number of 
txums the player has had and stop the game 
at a preset number. 

You can do this by adding to line 70 and 
putting an extra line at 485 like this. 



70 V=25:H=36:S=18:T=0 




You may not need to 
do this as not all 
computers need new 
variables to be set up 
before they can be 
used. 



4S5 T=TtI;IF T>2!)0 

■niDHIGHT HAS STRUCK, 

VOU'VE TURNED IHTQ fi BfiT":STDP 




[ You can change this number to 
I anything you like. 



Puzzle 

Can you think how to put a limit on the 
number of objects that can be carried at 
any one time? (You will have to adjust the 
scoring routine as well.) 



Adding sounds 




Squeak 
Squeak 



This is an effective way of adding to the 
game without having to make complicated 
changes. You will need to know how your 



computer's sound instructions work. Test 

some sound routines out first to make sure 
they are what you want and then add a 
GOSUB instruction to the line where the 
action occtuts, eg IF RM=46 ANDC{1)=1 
THEN M$= "SOMETHING SCARY IS 
HAPPENING": GOSUB 6000 

You couid add sounds for the front door 
slamming, the secret wall breaking, the key 
turning in the door, magic happening when 
you use the magic word and so on. This 
chart gives a few sound routines for various 
computers. The only limit on the number 
you can add is memory. 





mi MB7J,i3a 

fJR 1-15 TO *j STEP -! 

FOR »=1 ra !(:NEir PI 
N£lt L 

pneE 3iS77.() 



mi 3tB7MM 

Flfi L=!5 ID (1 STEP -I 

POtE MSJI.l. 

m Pl=l ID 2: NEXT 11 

«£«! L 

fan 36877,(1 



POKE zmsM 

fw 1-m ID' ;m step s 

<>m 34876.1 

m KM ra WQiNEKT n 



ffltE 34878.15 

FOR I=! ID l« 

POKE 34877,. 'M 

mi 36877,0 

FOR fl=l ™ 400iKEri h 

Nt«r I 



m:i 34878,15 

m ui 10 : 

POtiE 3487i„!fW 
POKE 34876, ii 

m 1=1 TD m-.HW » 

NEII 1 



FOB 1=5 10 W STEP : 

lEEP 1). :, 1 



FOS [--1 10 IS 
BEEP 0,(11. 0.«1 
FOB K-1 10 IMsNEIT n 

mi I 



lEEP 0.5,3 
PAUSE 30 
SEEP 0.5,5 



FDR L=-15 TO 
mm 0,L,3,1 
NEO L 



m L=-i3 TO -a 

SOiMD ['.1,5,0.4 
KEIT L 



FOR 1=45 TO 1 60 STEP 5 
50UM :,-l3,l,3 
M«T I 



FOR I'l TO 1? 
SOUNO 0,-15,5.1 
FOB 11-! TO 100(!:l(f|l n 
KEU 1 



SOONB J. -15, 10(1,2 

FD« 11=1 TO im-.mu B 

SMJdl 2,-15,100,? 




FOR I'SO ID 230 STEP iO 

iam 1,2 

NEII 1 



SDV«D 180.1 

FDR N=l TO 500:NEII 

SOUND 180.1 



FDR 1=13 ID STEP -I 
PLM 9,2,4,10(1 
SDIMD S.ldCi.L 
UHU 10 

PLM ». 0,0,0 



FOR L=15 to STEP -I 
fL« 0.2,4,10(1 
SOUND S.IOCL 
NAII I 
NEST L 
PLft( 0.0,0,0 



FOR L=15 TD STEP -I 
PLflf 0,;,6,100 
SDOND 3,100,L 
MIT I 
HEIT L 
PLM (l,0,((,0 



FOP 1=1 TD Id 
flM 0,1,1,30 
S3UK0 4,50,7 

pLflr 0,0,0,0 

FOR »=1 TO JOOiNEH N 
KEIT I 



FDS 1=1 ID 2 
Plflf I,(I,6,1M 
SOUND 1,70,7 
NAITJO 

Pint 0,0, u,D 

FDR Pl=l TO WtNEIT N 
NEIT I 



MAKINGCHANGES 

Scoring 

Haunted House has a very simple scoring 
system, awarding one point for each object 
the player is carrying. You could change to 
a more interesting system, such as basing 
the score on the value of the object. If you 
assume that the objects are numbered in 
descending order of value, then the 
painting vriD be the most valuable and the 
key the least. If you change hne 1530 like 
this: 

1 530 IF C(I)= 1 THEN S=S+G- 1 

then the painting will be worth 18—1=17 
and the key 18-18=0. (G is the nuniber of 
gettable objects and I is the number of the 
object the player is carrying.) This makes 
the key valueless as an item of treasure but 
of great value as a useful object because 
without it, the player would not be able to 
get the painting or the goblet. 



If you wanted a more flexible system (and 
you have enough memory), you could setup 
an array to contain object values in the 
initialization routine, like this: 





DIM TiB) 
FOR 1=1 TO G 
READ T!I1 
NEKT I 



Dimensions new 
array T with G 
spaces (i.e. nuniber 
of gettable objects) 






DATA 20,20,30,11,14,25,32.3,25,4,9,17,3,0, 
30 10,12,4,? 



Also change line 1530 as foUows 
1S30 IF C(I)= 1 then S=S+TCI) 

Penalties _ 

So far, the scoring 

routine has only 

counted plus points 

and not been 

affected by sQly 

things the player 

might try to do. You 

could add a penalty 

system quite easily by using a counter, say 

MK, for mistakes. Whenever the player 

does something really silly, you add to MK 

and then subtract it from S when the score is 

worked out at line 1530. If the player falls out 

of the tree, for instance, you could award 

one (or more) penalty points hkethis: 

780 IF FI14!=1 THEN I1*="[RASH fOU FELL OUT 
OF THE TREE" :F I 14) =0;HK=HK+1: RETURN 

Don't forget that some computers need 
new variables to be defined before they can 
be used. You can do this by adding MK=0 
to the variables in line 70. 

Saving the game 

It would be nice to 

be able to switch 

off part way 

through a game 

and then carry on 

later from where 

you left off. With 

long, comphcated 

games this is a very 

important feature 

and you can include it by adding SAVE and 

LOAD to the verb list. In line 70, change the 

value of Vto 87 and add the two new verbs, 

separated by commas, to the end of line 

1665. You will also need to change the ON 

GOSUB line at line 460. 




Put the line numbers of the two new 
subroutines (one for SAVE and one for 
LOAD) between the last two numbers in line 
460 so that they read: 
...1510,3000,4000,1590 



/. \ 



First new number 



Second new number 



Then add the new subroutines like this, 
checking your computer's manual to make 
sure the wording is correct. 



#3000 IKFUT 'IS YOUR CflSSETtE 
REMY TO RECORD'iH 
3010 IF HOT THEN 3000 
3020 OPEN FILE FDR QITPUT FRiW 
COMPUTER 



1030 PRINT II, RN 



Replace this line 1 
whhyour 
computer's own 
instructions. You 
may not even need 
a line here at all. 




This saves the 
room the 
player is in. 




3040 
3050 

mo 

3070 
30BO 
3090 
3100 
120(1 
#1000 

toio 

4020 
4030 
4040 
4050 
4040 
4070 
40B0 
4090 
4100 
4200 




FQR !=1 TO G 
PRINT ll,L(I] 

Ktl I 

FDR 1=1 TO H 

PRINT 11,0(1), Fill 

NEXT I 

CLOSE 

RETURN 

INPUT "ARE YOU REftD* TD LQflD'SYt 

IF YIO'Y" THEN 400O 

OPEN FILE FOR INPUT TO CONPUTER 

INPUT tl.RN 

FOR 1=1 ID e 

INPUT i!,L(!l 

HEH ! 

FOR 1=1 TO N 

INPUT II, cm, FID 

NEXT I 

CLOSE 

RETURN 



This loop saves 
positions of 
gettable objects. 




This saves items the 
player is carrying and 
the state of the flags. 



Note that this save routine does not save the 
descriptions and routes in the game. This 
means that the rooms and routes altered by 
the player's actions will return to their 
original state - the secret wall will be 
rebuilt, the door relocked and so on. (The 
ghosts are probably responsible.) You 
could save the D$ and R$ arrays if you 
wanted to, by adding extra loops to each of 
the SAVE and LOAD routines. 



Do you give in? 

Like most adventures, Haunted House 
contains traps for the player which can only 
be avoided by using a certain object in a 
certain way. If the player doesn't have that 
object he is stuck, A "quit" feature would be 
useful in this situation so the player does not 
have to press BREAK or ESCAPE to end the 
game. You can do this by adding QUIT to 
the verb list and putting in a new subroutine, 
as for SAVE and LOAD described on the 
left. 




You must remember to change the 
value of V in line 70, add QUIT to the end of 
line 1665 and insert the new subroutine line 
number in Une 460, putting it in the second 
to last position. 

The QUIT subroutine should be 
something like th^: 



5000 INPUT "(illNT TQ SUIT'; 6$ 

5010 IF QtO'Y" THEN RETUfiU 

5020 IfiFUT 'UKE TO SAVE GflflE FIRST', Qt 

5030 IF BI="V' THEN EOSUB 3000 




You don'! need this if you 
haven't put the SAVE feature 



5040 PRINT "THANKS FOR PLAYING" 
5050 END 



Notice that there is no RETURN at the end of 
this subroutine. This is usually against the 
rules in BASIC but, in this case, the 
computer cannot get confused because the 
program will no longer be running when it 
reaches hne 5050. 
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^Ifyou have a BBC, you may need to replace semi-colon with a comma. 



MAKING CHANGES 



Debugging your adventure 

If you write your own version of Ha un ted House or use the routines in it to make a new 
adventure, then you are quite likely to make mistakes. Finding mistakes and putting them 
right is called debugging. Here are some of the problems you might come across and some 
suggestions for fixing them. 




' If the computer gives you an error code which stands for 
"out of data in line x" then it means that the numbers don't 
tie up in one of your data-reading sections. Check thatthe 
I number of items of data is the same as the number in the 
[ loop for reading them in. You could have left a comma out 
in the DATA statement perhaps, or missed out one item 
altogether or put the wrong number in the loop. 



\Array 



error 



^ 



:v 



If you get an array error, it means that you didn't reserve 
enough space when you DIMmed the array or you 
accidentally put an extra item in the DATA statement 
(perhaps by putting in an extra comma) and then cotmted 
this extra item when working out the number for the READ 
loop. 




Din A(4I 

FOR 1=1 TO 4 

READ fl(I) 

NEH 1 

DflTA SNORD,«DNElf,F00D WATER 



DIM FI3) 

FOR 1=1 TO 4 

READ A(I) 

NEJET I 

DATA AXE, COFFIN, BLOOD, KEY 



Objects behave in strange ways 



^ 



\ 



This could happen because the program is being directed to the wrong subroutine by 
the ON GOSUB line. Check each number in this line against the subroutine with the same 
number. If these are all correct, check the DATA statement for the verbs to see if their 
order coincides with the order of the subroutines. 

If the program is going to the correct verb subroutine and the verbs are listed in the 
correct order, check that there is a RETURN line at the end of each subroutine. If this is 
missing, the computer wiH "faD through" the program to the next subroutine down which 
may produce some strange results. 

If none of the above things solves the problem then check through the conditions in 
the subroutine carefully. You might have missed something out or got a sign wrong or 
used the wrong variable by mistake. Check the override conditions and flags which 
occur earher in the program too. 



Exits in funny places 



I 



^ 



If you find a wall you can walk through or a doorway you can't, you may have made a 
mistake in planning your routes or in typing in the route data. Check your route map 
against the data lines to find the mistake. 
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i }bjects d on't appear where they should 

If an object appears m the wrong place then you've probably made a mistake in the data 

for array L. If an object doesn't appear at all, check the flag array. You must have set the 

flag with that object number to 1 , which means that the object is there but the computer 

won't tell you. You need to set the Dag to zero. Check the initialization routine where the 

32 flags are set up and then the flag references throughout the program. 



PROGRAM LISTING 

The Haunted House listing 

This is the program listing for the Haun ted House adventure. It should run on any 
computer which uses Microsoft-style BASIC and which has a minimum of 1 6K of RAM, You 
may have to make a few minor changes for your computer - look out for comments next to 
certain lines in the listing. If you have a VIC 20 or an Oric, there are a few extra lines and a 
line change which you will find at the end of the listing on page 37. If you have a BBC Model 
A, use mode 7. 

This listing will not work as it is on Suiclair (Timex) computers. If you have aSpectnun 
(Timex 2000), turn to page 38 for changes to make to the program. If you have a ZX8 1 
(Timex 1000) there is a special hsting for you on pages 39 to 45. 

As this is a long program, you will have to be extremely careful when you type it in. The 
smallest mistake could prevent it running properly and will be very difficult to find once 
you've typed the whole program in. Check each line as you go, especiaUy the ONGOSUB 
and DATA lines. Some of the program lines are so long that they take up two or more lines 
on the printed page. Look out for these and make sure you do not press RETURN or ENTER 
until the end of the program line. 



If you have a VIC 20, change 
CLS to PRINT CHE$C 1 47). If you 
have an Apple change it to 
HOME. 
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10 REM HAUfilED HOUSE ADVENTUfiE 
20 REH ttffttf«ttfftf((t»f(f»f 

30 REM THIS VERSION FOR "MICftOSOFT" BftSIC 
40 REM REQUIRES A MINIMUM OF 16K 
50 REH SELECT 'TEXT MODE' IF NECESSARY 
60 REM ff»»(ftfff»ftf»»(ft»»fftH4l 

65 CLEAR 100 
70 V=25:t(=36:6=lB 
BO 60SUB 1600- 
90 CLS: PR I NT "HAUNTED HOUSE"* 
00 PRINT 

110 PRINT "YOUR LOCATION" 
120 PRINT DlfRM) 
130 PRINT "EKITS:"; 
140 FOR 1=1 TO LENtRKRM)) 
150 PRINT MIDt(Rt(RMl,I,l); 
ItO NEH I 
170 PRINT 

180 FOR 1=1 

190 IF L(1)=RH ftND F(I}=0 THEN PRINT "YOU CAH SEE '!0*(]);" HERE" 

200 NEH I 

210 PRINT "============ 

220 PRINT f!*:)tt='KKAT" 

230 INPUT 'HHftT KILL YOU 00 NDtt";Qt- 

240 Vt="":Wl=":VB=O:DB=0 

250 FOR 1=1 TD LEN(Qt) 

260 IF MIDI 18*, I, n = " ■ ftSD V*=""THEN V*=LEFT»(Qt,I-n 

270 IF flIDt(S*,I+!,l)<>" • AND V*<>'" THEN Ht=MIDt{Qt, l+!,LEN(Qt)-n: I=LEN^(Qt) 

2S0 fJEU I 

290 IF Mt=" THEN Vt=fl» ^^g" 6: 1 ^^ Seepages2I-22tofind 

300 FOR 1 = 1 TD V ^^Bj^k - .^ \ out how the input section 

310 IF V*=VJtI) THEH VB=I 

320 Wil I 

330 FOR 1=1 TO H 

340 IF HI=0*(I) THEN LET OB=I 



' See page 20 to find out 
how the description and 
feedback section works. 



TO 6 




If you have a BBC, you 
rnay need a comma here 
instead of a semi -colon. 




works. 
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PROGRAM LISTING 



y 



350 
60 
370 
3B0 
J90 
400 
*10 
420 
430 
440 
450 



OT 

CO 
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NEH I 

IF W$>" flHD DB=0 THEN J!l=' THAT'S SILLY" 

IF VB=0 THEN VB=V+1 

IF H$=" THEN Hf='I NEED THO NORDS' 

IF VB>y ftND Ofl>0 THEN H»="VOU CftN'T "+6$+"' 

IF VB>V AND 0B=0 THEN 11$= "YOU CON'T HAKE SENSE' 

IF VB<y m DB>0 fiKD C(OB)=0 THEN H»="VOU DON'T HAVE '"+1 

IF F(26) = l AND RH=13 AND R»D(3)<>3 AND VB021 THEN Ht='BATS ATTACKING' "iGOTO 90 

IF RI1=44 AND RND(2)M^AND F(Z4)<>1 THEN F127)=1 

IF F(0)=1 THEN LL=LL-1 

IF LL<1 THEN F{0)=0 J 




See pages 23-24 to find 
out how the error 
messages section 
works. 




Use your computer's 
form of RND here. 



,640, 981), 9fl0, 1030, Ui70, 1 140, 1 180, 1220, 1250 , 




Change this line for 
VIC 20 and One. 
See page 37. 




Take extra special care 
to type this line 
correctly. It wiU mess up 
the game if you get it 
wrong. 



460 ON VB G0Bt)fl500,570,640,640,640,6407 
1300, 1140, 1380, 1400, 1430, 1460, 1490,1510,1590 
'470 IF LL=10 THEN M="YOl}fi CAI^DLE IS HANING 

480 IFLL=I THEN Ht='YQUR CANDLE IS OUT!" 

490 601090 

r.OO PRINT'HORDS 1 KNQH:" 

510 FDR 1=1 TD V 

520 PRINT Vtai;",'; 

530 NEXT I 

540 f1*="":PRINT 

550 BOSyBlSBO 
V5i0 RETURN 
/*570 PR1HT"YGU ARE CftRRYING;" 

580 FOR 1=1 TO fi 

590 lFC(Ii=l THEN PRINTOKI) 

600 HEU I 

610 M="":PRINT 

620 5DSUBt580 

630 RETUftH 

640 D=0 

650 IF 0B=O THEN D=VB-3 

660 IF 0B=19 THEN D=l 

670 IF OB=20 THEN D=2 

680 IF 0B=21 THEN D=3 

690 IF DB=22 THEN D=4 

700 IF 0B=23 THEH D=5 

710 IF 0B=24 THEN D=6 

720 IF R!1=20 AHD 0=5 THEN D=l 

730 IF RH=20 AND D=6 THEN D=3 

740 IF R«=22 AND D=6 THEN D=2 

750 IF R«=22 AND D=5 THEN D=3 

760 IF RH=36 AND D=6 THEN D=l 

770 IF Rtl=36 AND D=5 THEN D=2 

780 IF F(14)=l THEN «*="CRASH' YOU FELL OUT OF THE TREE! '':Fil4)=0: RETURN 

790 IF FI27)=1 AND RH=52 THEN «I="6H0STS HILL NOT LET VOU HOVE": RETURN 

800 IF R11=45 AND C(l)=l AND F(34)=0 THEN I1$="A flAGICAL BARRIER TO THE WEST": RETURN 

810 IF [R«=26 AND F (01=0) A«D (D=l OR D=41 THEN )«="VOU NEED A LIGHT": RETURN 




The branch to 
subroutines section and 
the verb subroutines are 
explained on pages 24- 
25. 



You can find out how the 
GO subroutine works on 
pages 26-27. 



980 

900 
910 
920 




It you aie using a VIC 20, 
you could shorten the 
messages to 3S 
characters or make sure 
the spaces fall in the 
right places so the 
messages look better on 
the screen. 



■THE DDDR SLflSIS BMI':Fi:3)=0 



o 



R 
^ 



IV020 REl 
/TO JO IF 



820 IF Rfl=54 AND D(]5) <>1 THEN M*='VDU'RE STUCK! 'iRETURN 

B30 IF CI 151 = 1 AND NOT (R«=53 Oft RH=54 OR RI1=55 OR R«=47) THEN Ht='¥OU CAN'T CARRY ft BOA 
1":RETURN 

840 IF (Rn>2i AND R«<30) AND F(0}=0 THEN HI " 

850 F(35}=0:RL=lEN(R*(Rfl)l 
860 FOR 1=1 TO RL 
870 U$=HIDt(fi«(RHt,I,l) 

IF m='H' m D=l AND F (351=0) THEN RH=RH-B:F (351=1 
!F (Ut="S" AND D=2 ftSD F(3Si=0)THEN Rt1=RHt8:F!35}=l 
IF (U$="H" AND D=3 AKD F(J5)=0)THEN RH=RM-1:F(35)=1 
IF m='r AND D=4 AND F (35) =0) THEN RH=RW+1:F(35)=1 
NEXT I 
930 Ht="OK' 

940 IF F(3S)=0 THEN Ht=*CAN'T 60 THAT MAV 
950 IF D<1 THEN M="SQ HHERE?' 
960 IF Rn=41 AND F(23)=l THEN Rt(49)="BN':Ht 
V970 RETURN 

rm IF aB>B THENfll='I CAN'T GET "tW; RETURN 
9S5 IF L(OB) <> RH THEN Ht="IT ISN'T HERE" 
990 IF F(QB) <>0 THEN Ht="HHftT "+Ht+"''" 
1000 IF C (OBI =1 THEN l«='YOU ALREADY HAVE IT' 

1010 IF 0B>0 AND L(OB)=RM AND F([}B)=0 THEN C(0Bl = l:L(06)=65:Mt='V0U HAVE THE "+H» 
RETURN 

firt=43 AND (08=28 OR 0B=29) THEN F(17)=0:M='DRAHE8 OPEN" 
1040 IF RH=2B AND 0B=25 THEN HI="IT'S LOCKED' 
1050 IF Rt1=38 AND DB=32 THEN (1*=''THAT'5 CREEPY! *:F(2)=0 
VI 060 RETURN 

^'70 IF 0B=30 THEN F( 181=0: l1t="SD«ETHING HERE" 
1080 IF 06=31 THEN H$="THAT'S DISGUSTING)" 
1090 IF (0B=28 OR 0fl=29) THEN Ht="THERE IS A DRAWER" 
IK'O IF 0B=33 OR 0B=5 THEN GOSUBIUO 

1110 IF RI1M3 AND 06=35 THEN «t="THER£ IB SONETHiNE BEYOND.." 
1120 If 0B=32 THEN BaSUB1030 
1130 RETURN 

ThO IF Rft=42 AND 0B=33 THEN H*="THE¥ ARE DEftONIC WORKS' 
1150 IF (0B=3 OR 0B=3i>) ftHD C(3)=l AND F(J4)=0 THEN Ht=''USE THIS WORD WI TH CAR E 'UflNF AR' 

1160 IF C(5) = l AND 0B=5 THEN RJ="THE SCRIPT IS IH AM ftLIEH TiJHGUE" 
J 170 RETURN 

1180 Ht="OK '"4-tt*+"'" 

1190 IF C{3) = 1 AND 0B=34THENH*=^'tHAGIC OCCURSr:IF Rf1<>45 THEN RH=RNI}(63i( 

1200 IF C(3)=l AND 0B=34 AND RM=45 THENF (341=1 
J210 RETURN 

1220 IF C(12)=l THEN «*="YOU HADE ft HOLE" 

1230 IF C( 121 = 1 AND Rf1=30 THEN ttt="DUe THE BARS QUT':D*(Rtt)="HOLE IN «ALL":Rt(Rt1)="NSE" 
J 240 RETURN 

1250 IF C(14) <>1 AND RH=7 THEN Ht-"THIS IS NO TIflE TO PLAY GAHES" 

1260 IF 0B=14 AND CU4)==l THEN M="YOl) SWUNG IT" 

1270 IF QB=13 AND Cil5}-1 THEN R*='WHO0SH!" 




m 



M 



CO 
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PROGRAM LISTING 



1280 IF 0B=13 AND C(I3) = 1 A«D Rfi=43 THEN R»<Rfl)="«N":DtiRn) = "STtJI)V WITH SECRET RBGH':ftt=' 
YOU BRSKE THE THIM WALL" 

>n% RETURN 
hm IF DB=H AND Cil4)=l THEN !1t="IT ISft'T ATTACHED TO ANVTHINE!" 

1310 IF 0B=14 AND C(t4) <>1 AND fil1=7 AND F(14)=0 THEN «="VDU SEE THICK FOREST AND CLIFF 
S0UTH":FU4) = hRETURN 

t320 IF QB=14 AND C(14) <>1 AND R)1=7 AND Fn4)=l THEN Bt="E01NG DD«N!"!F(i4)=0 

1330 RETURN 
40 IF 0B=17 AND C(17)=l AfiD C(8)=0 THEN fit="IT HILL BURN VflUR HANDS" 

1350 IF OB^n fm Cil7>=l AND C(9i=0 THEN n*='HOTKIHG TO L16HT IT KITH" 

13i0 IF QB=17 AND C(17}=1 AND C(9) = l AND C(B)=1 THEN f!*="IT CASTS ft FLICKERING LIGHT':F(0)=1 

|_?70 RETURti 

1380 IF F(0) = 1 THEN F(0)=0:l1$-"EniN6UISHED" 
390 RETURN 

r400 IF DB=2i AND C(16)=l THEN ff*='HlBSSS" 

1410 IF GB=Zi ANDC(U)=1 AND Fi26hl THEN F(2i)=0:fl*="PFFTI EOT THEN" 

1420 RETtiRN 
430 IF 0B=10 AND C()0)=1 AfID CilD^l THEN M*="SHITCHED 0N":Ff24)=l 

1440 IF F(27) = i AND F(24)=l THEN I1«="HHIIZ- VACUUilED THE GHOSTS UP!";F(27)=0 

1450 RETURN 

Tm IF RH=43 ASD (0B=27 OR 06=28) THEN SOSUBIOSO 

1470 IF RH^28 AND 0B^25 AHD FI25)=0 AND Cil8)=l THEN F(25)=l;R*iRn)^'SEll';D*(R«)=''HUGE OP 
EN DOOR" :HI=' THE KEV TURKS I' 
480 RETURN 

1490 IF tiOB)=l THEN C(0B)=0:L(OB)=fiH;Ht="DDNE" 
500 RETURN 

1510 S=0 

1520 FOR 1=1 TO G 

1S30 IF Ctl)=l THENS=SH 

1540 NEXT I 

1550 IF S=17 AND C(15K>1 AND RH 057 THEN PRINT"VDU HAVE EVERVTHENS'iPRIflT'RETURN TO THE 

BATE FOR FINAL SCORE' 

1S60 IF S=17 AND RH = 57 THEN PRINT'DODBLE SCORE FOR REACHIN6 HERE!':S=Sf2 

1570 PfilNT'VOUfi SCORE='iS;IF S>18 THEN PftlNT'HeLL DONE! VOU FINISHED THE GANE':END 

1580 INPUT'-PRESS RETURN TO CONTINOE";Qt 
VjS90 RETURH 
/UOO DIflRi(43J,D$i63),D$(H),VI(V) 

1610 DIHC(tO,L(G),F(H} 

1620 DATfl46, 38, 35, 50, 13, 18,28,42,10, 
25,26,4,2,7,47,60,43,32 

1630 FOR 1=1 TO G 

1640 READ LID 

1650 HEKT I 

1660 DATAHELP, CARRYING?, GO, N,S,H,£,U,D, GET, TAKE, OPEN, EXAMINE, READ, SAY 

1665 DfiTADI6,SmN6,CLil1B,LlBHT,UNL]BHT,SPRAY, USE, UNLOCK, LEAVE. SCOfiE 

1680 FDR 1=1 TO V 

1690 READ V* (I! 

1700 HiU 1 



H 




If you have a BBC, you 
may need a comma here 
instead of a semi-colon. 




\ Notice that data items 
are separated by 
commas. If you change 
the data, make sure you 
don't try to include 
commas in it or you will 
confuse the computer. 



1710 DftTASE,HE,«E,SHE,H£,WE,S«E,HS 

1720 OflTftNS,SE,«£,NH,SE.t(.NE,NSH 

173.0 MTftNS,N5,SE,«E,NHUD,S£,HSUD,NS 

17M Dfi™,H9,NSE,HE,HE,NSIi,NS.NS 

1750 DfiTflS,NSE,NS«,B,NSiJD,H,N,NS 

1760 DflTANE,M«,HE,«,NS£,HE,H,SS 

1770 [)flTflSE,NSH,E,HE,MH,S,SH,NH 

1780 DflT(iNE,NH£,HE,H£,HE,NHE,NHE,W 

1790 FOR 1=0 TO hZ 

1800 REftDRt(I) 

1810 NEXT ! 

132S DfiTfi DARK CORNER, OVERGROiN GARDEN, BY LARGE HODDPILE.YP.RD BY RUBBISH 

1S25 DATA HEEDPATCH, FOREST, THICK FOREST, BLASTED TREE 

1B40 DATA CORNER OF HOUSE, ENTRANCE TO KITCHEN, KITCHEN i GRIHY COOKER, SCULLERY BOOR 

1845 DATA RDOf! WITH INCHES OF DUST, REAR TURRET ROOM, CLEARING BY HOUSE, PATH 

IBfiO DATA SIBE Of HOUSE, BACK OF HALLHflY.DARK ALCOVE, SHALL DARK R00« 

ISiS DATA BOTTOM OF SPIRAL STAIRCASE, HIDE PASSAGE, SLIPPERY STEPS, CLIFFTQP 

IBBO DATA NEAR CRUNBLINE WALL,SLOOHY PASSABE.POOL OF LIGHT, IMPRESSIVE VAULTED HALLHAY 

mi DATA HALL BY THICK HOODEH DOOR, TROPHY fiOOH. CELLAR HITH BARRED HINDOH, CLIFF PATH 

1900 DATA CUPBOARD HITH HANGING COAT, FRONT HALL,S!TTINB ROO«,SECRET ROOM 

1?05 DATA STEEP MARBLE STAIRS, DINIfJG ROOM, DEEP CELLAR HITH COFFIN, CLIFF PATH 

1920 DATA CLOSET, FRONT LOBBY, LIBRARY OF EVIL BOOKS, STUDY HITH DESK I HOLE IN HALL 

1925 DATA HEIRD COBHEBBV ROOM, VERY COLD CHAMBER, SPOOKY ROOM, CLIFF PATH BY fWRSH 

1940 DATA RUBBLE-STREHH VERANDAH, FRONT PORCH, FRONT TOHER, SLOPING CORRIDOR 

1915 DATA UPPER GALLERY. MARSH BY HALL,«ARSH,SOESY PATH 

1960 DATA BY THISTED RAILING, PATH THROUGH IRON GATE, BY RAILINGS, BENEATH FRONT TOHER 

1965 DATA DEBRIS FROM CRUMBLING FACADE, LARSE FALLEN BR I CKHDRK, ROTTING STONE ARCH, CRUMBLING 

CLIFFTOP ^^ 

1980 'for 1=0 TO 63 -^" -^ 

1990 READDtil) 

2000 NEXT I 

2010 DfiTAPAINTINe,RING,HAGiC SPELLS, GOBLET, SCROLL, COINS, STATUE, CANDLESTICK 

2012 DATAMATCHES, 'VACUUM, BATTERI£S,SHOVEL,hX£, ROPE, BOAT, AEROSOL, CANDLE, KEY 

2014 DAT ANOfiTH, SOUTH, tlEST, EAST, UP, DOW« 

2016 DATADOOfi, BATS, GHOSTS, DRAHER, DESK, COAT, RUBBISH 

2016 DATACOFF I«, BOOKS, XIANFAR, HALL, SPELLS 

2060 FOR 1=1 TO H 

2070 READOiU) 

2080 NEXT I V ^ 

2090 F(18)=l:F(I7)=l:F(2)=l:F(2i)=l:F(28}=l:F(23)=l!LL=60;RM=57:H$='0K" 
* 3100 RETURN 

VIC and Oric changes 

Kyou have a VTC 20 or an Oric, use these lines instead of line 460 in the main listing. 




Make sure you type the 
data in the correct order 
or strange things will 
happen when you try to 
play the game. 



455IF VB>1^ THEri EGTD4c5 

460DN VB SOSUB 500,570,640,640,640,640,640,640,980,980,1030,1070,1140 

ifi3GGTrj470 

4650J! VB-14 SOSUB 1 180, 1220, 1250, 1300, 1340, 1380, 1400j 1430, I4ti0, 1490, 1510, 1590 
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SPECTRUM VERSION 



Changes for the Spectrum (Timex 2000) 



Sinclair (Timex) computers iise a version of 
BASIC which differs quite a lot from the 
BASIC on other popular computers, so you 
will have to make quite a lot of changes to 
make it work. These changes make the 
program slightly too long to fit into a 16K 
Spectrum. You could, however, try 
adapting the program to fit by cutting out 
some of the verbs, for example, and 
shortening the messages. 



60 LETf*=" ' 

120 PRINT Bt(RH+lt 

140 FOR 1^1 TO LEN(Rt(RH+l)) 

150 PRINT R*(Rt1+I) (1 TQ I);%"; 

240 LET Kt="iLET Nt=""iLET VB=0!LET 06=0 

250 FQR !=i TD LEN(Qt)-l 

2i0 IF Qtd TO I) = " " AND U=" THEN LET U=Q%\ TO M) 

nti IF Q*(I+I TO I + l)<>" • AND K*=" THEN LET Ht=Qt(It| TQ 

290 IF «*=■■ THEN LET )(l=Qt 

295 IF L£N{Xt) > LENiVtd}} OR )!*="" THEN GOTO 325 

296 LET K*=!(t+Ft( TD (LEHCJJUll-LENa*})) 
310 IF U=nil) THEN LET 'JE=I 

325 IF «»="■ OR LEN(Htl>LEN(Otil)) THEN GOTO 360 

326 LET W*=W*+F*( TO (L£N(Ot(l))-LEN(Ht)n 



Use the lines listed below to replace lines 
in the main program and also change the 
main program as follows: 

1 . The Spectnm\ needs LET every time you 
assign a value to a variable e.g. LET V=25. 
This affects many Lines, including all the 
ones containing IF . , , THEN, so be careful. 

2. All the string data in lines 1660, 1665, 
1710-1780. 1820- 1965 and 2010-2018 must be 
put in quotes, like this: 
1820DATA"DARK CORNER", 
"OVERGROWN GARDEN", etc. 

3. In hues 1790 and 1980, change the loop to 
read FOR 1= 1 TO 64. (The Spectrum won't 
allow you to use the box labelled zero in an 
array.) 



:LET I=LEH(Qt!-l 



Remember that if you type in the data 
in capital letters, you must play the 
game using capitals - the computer 
does not recognize that "GO WEST" 
and "go west" are the same thing. It is 
best to keep the caps lock on all the 
time. 
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405 IF 06=0 THEM G0T042O 

420 IF F(265=l flHD RM=13 AND INT(RNDti+l)<>3 AND VB 021 THEN LET MI='BfiTS ATTACtdNG;^^ '^ ^> 

430 IF R!1M4 AND iNT(SNDt2)=l AMD F{24)<>I THEN LET F(27) = l ^^'\S 

440 IF F(20)=l THEN LET LL=LL-1 r"^'"'' 

450 IF LLdTHEN LET F!20)=0 

4iO GOSUB 500»(VB=n+570t!VB>2 AND VB<10K9B0t(yB=10 OR VB=11} +10301 (VB=12} +10701 IVB=13)+1 

140t(VB=14) + na0IWB=15i+1220t(VB=16K1250liy6=17}+1300t(VB=ia) + 13401 (VB=19) + 1380t(VB=20) + 

1400tiVB=21)+H30t(VB=22l +1460* (VB=23)+1490t(VB=24)+1510t(VE=25) + 1590* (VB=26) 

800 IF (RB=26 AND F(20)=0) AND <D=1 OR D=4! THEN LET H*="VOU NEED A LIGHT*: RETURN 
840 IF (R«>26 AND RH<30} AND F (201=0 THEN iET Mt='TO0 DARK TO HGVE": RETURN 
850 LET F(35)=0:LET RL=LENiRt(RH+l)) 
870 LET Ut=Rt(RI1+l) (I TO I) 

960 IF fiH=41 AMD F(23)=l THEN LET Rt{50)="SH";LET Mt="THE DOOR SLAMS SHUTI":L£T F (231=0 
980 IF OB>B OR 06=0 THEN LET H*="l CAN'T GET ■+bll; RETURN 

1190 IF !:.!3) = 1 fl«B DB=34 THEN LET l1l="tMfiSIC OCCUftSfilF RH045 THEN LET R«=M(RNDt641 
1230 IF C!!25 = l AND Rn=30 THEN LET Mt='DU6 THE BARS OUT':LET D$(RI1+I)="H0LE IN WALL'iLET 
R*(RH+1)="NSE" 
1280 IF 06=13 AND Ci 131=1 AND R«=43 THEN LET Rt(Rn+15 = 't<N":LET Dt(RH+I)='STyDV HITH SECRE 
T RI3DH';LET H*="yOL! BROKE THE THIN WALL' 

1360 IF 08^17 AND E(17)=l AND 0(9) = 1 AND C(8)=l THEN LET P!t="IT CASTS A FLICKERING LIGHT' 
sLET F(20)=l 

1380, IF F(20! = ! THEN LET F(2fH=0;LET Ht="EST!H6LiISHED" 

1470 IF R«=2B AND 0B=25 AMD F(25)=0 AND CdOl-l THEN LET F(2S)=1:LET RKRH+ll^'SEK'sLET B 
«(RMtl)="HyGE OPEN DODfi":L£T Ht="TH£ KEV TURNS'" 
1600 DIM Rt(64,4):DIH D$(a4,4i:DI« Ot( (H, HlsDIM Vliy,9) 



ZX81 (Timex 1000) version 



The program listing on the next six pages is 
a special version of /fa un ted House for the 
ZX8 1. It sticks as closely as possible to the 
structure of the main program, so you can 
follow the explanations of the program 
given throughout this book. The main 




Notice that the locations are 
numbered staiting with 1, as 
the ZX8 1 will not allow you to 
use the zero box in an array. 



differences are that the ZX8 1 will accept 
only one statement on each line and it does 
not have the commands READ . . . DATA. 
The program has been rewritten to take 
accoimt of these and other differences in 
the BASIC which you will see pointed out on 
the listing. 

These changes take up quite a lot of 
memory space. In order to make the game 
fit, the number of locations has 
been cut from 64 to 36 and other data 
changed shghtly to fit with this. The ZX8 1 
version of the master plan is shown below. 
You can find out how the data is put into the 
computer's memory over the page. 



ZX81 masterplan 
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ZX81 LISTING 

How to use the program 

If you look through this listing, you will 
notice that the data for the game is not 
incorporated in the program. The program 
works by asking you to type in the data and 
then saving the whole program, including 
the data, on tape. You only need do this 
once - next time you want to play the game, 
all you have to do is load the tape. 

Follow these instructions to use the 
program: 

1 . Type in the program (very carefully). 

2. Type RUN 2440. 



o 

Pn 

u 

w 
u 
Q 



FT 

10 GQSliB 2200 

20 CLS 

30 PRINT "HflUNTED HOUSE ADVENTyRE" 

40 PRINT • ■ 

50 PRINT 'VOUR LOCATION:* 

M PRINT Hm) 

70 PRINT -EXITS: ■ 

80 FOR 1=1 TO LEN(R»iR«)) 

90 PRINT R$ifiH)(I TO U;','> 

100 NEXT I 

no PRINT 

120 FOR 1=1 TO B 

130 IF L(n=RI1 AND Fa)=0 THEN PRINT "YOU CAtt SEE 

MO SEKT 1 

150 PRINT •====================• 

160 PRINT Ht 

170 LET Nt="ttHAT ?" PN .- 

tr 



40 



3. Now type in the data in the following 
order (see page 45 for lists of data): 

a) location descriptions 

b) routes 

c) object words 

d) verbs 

The program stops after each section so 
you can re-enter any data which you put 
in incorrectly. If, for instance, you want to 
put the verb data in again, type GOTO 
2720. If you want to cany on to the next 
input section, type GO NT, followed by 
NEWLINE. 

4. Now SAVE the program on tape. This will 
save all the data as well. 

5. To start the game, type GOTO 10. DO 
NOT TYPE RUN. as this will destroy all 
the variables. 

8. Now input the starting positions of the 
objects. When you input the last of these 
( 1 8) the program vrill give you your 
starting location. 

7. For a new game, repeat steps 5 and 6. 

8. When you load the program from tape, 
start these instructions at step 5. 



';Ot(I)i" HEfiE" 







BO PRINT 'WHAT HILL YOU DD ND«" 
m IHPUT Q$ 
200 LET »=■" 
210 LET Hl=" 
220 LET VB=0 
230 LET 0B=0 
Z40 FOR 1=1 TO LEN^EIl)-! 

250 IF Btd TO I)=" " AND U=" THEN LET XI=BtiTD I-I) 
260 IF ei»(I+I TO I+DO" ■ AND XJO" THEN LET liJ=Bt(I+l 
270 IF HtO" THEN LET I=LEN(B*)-1 
280 NEXT I 

290 IF \H=" THEN LET X*=Q$ 
MO IF L£NtX*)>LENiV*fl)) DR »=" THEN GOTO 420 
310 LET F=LEN(V*(1))-LEH(K«) 
320 LET Xl=Xt+F«(TO F) 
330 FOR M TO V 
340 IF n=mi) THEN LET VB=I 
350 NEXT I 
360 IF «="■ OR LEN(ll$)>LENiO*(in THEN 60T0 430 



The ZX8 1 needs LET when a 
value is assigned to a variable. 





This section looks a bit 
different to the main program 
because the ZX81 does not use 
MID$, LEFT$ and RIGHTS to 
take a section of a string. 



n 



Notice that some of the 
program lines aie longer than 
the printed lines on the page. 
Make sure you don't press 
NE WLINE before the end of 
the program line. 



370 LET F=LEN((J*U)}-L£N(W) 

380 LET «$=«+Ft(TD F) 

390 FOR !=1 TO It 

400 IF Wt=Q$(I) THEN LET OB=I 

410 NEST I 

^20 IF il$>" fiHD Q6=0 THEN LET M="THftT9 SILLY" 

430 IF Vfl=0 THEN LET VB=V+1 

440 IF Wt=" THEN LET «='I NEED TND KORDS* 

450 IF VB>V AND 0B>0 THEK LET Ht="VOU CftNT '♦fit 

4tO IF mv AND QB=0 THEN LET H»="YOU DONT «flKE SENSE' 

470 IF DB=0 OR 0B>6 THEN fiOTO 190 

480 IF VB(V m flB>0 AND C(OB)=0 THEN LET M^'YQU DONT HAVE '+« 

490 IF F(26)=0 OR RM05 Oft INT(RND*31=2 OR VB=21 THEN GOTO 520 

500 LET Ht='BftTS fiTTACKINB" 

510 BQTO 20 

520 IF RH=28 AND INT(RHB«21=1 AND F(24)=0 THEN LET F(27}=1 

530 IF F!20)=l THEN LET LL=LL-1 

540 IF LLC 1 THEN LET Fi20)=0 

550 6DSUB 590*(VB=!1+6W»(VB=2)+730*(VB>2 AND VB<10)+1160*(VB=10 OR VB=1I)+1270*(VB=12) 

+1350»(VB=13)+1440*(VB=14)+14a0»(VB=15)+154O* (VB=16)tl560t(VB=I7)+!640*(VB=18)+1700«(VB=19) 

tl760i (VB=20)tl800i((VB=2!)*+1850t(VB=22) +1920* IVB=23) +1990* (VB=241+2040UVB=25)+2190»(VB=26). 

5iO IF LL=10 THEK LET Ht="VOOR CANDLE IB NAKIN6' 

570 IF LL=1 THEN LET nt="YObR CANDLE IS Otir' 

560 SOTO 20 










590 PRINT "tiORDB I KNOW" 

600 FOR 1=3 TO V 

610 PRINT yj(]);','! 

620 HEKT I 

630 LET M=" 

640 50S0B 2U0 

650 RETURN 

660 PRINT 'yQll ARE CARRY I NG:' 

670 FOR 1=1 TO G 

680 IF C(I)=1 THEN PRINT Q$(I)i',"i 

690 HEH I 

700 LET «$="' 

710 GOSUB 2160 

720 RETURN 

T30 LET D=0 

740 IF 0B=0 THEN LET D=VB-3 

750 If OB>ia AND DB<25 THEN LET D=0B-18 

760 IF Rfl=10 AMD D=5 THEN LET D=l 

770 IF Rfl=10 AND D=6 THEN LET D=3 

7B0 IF RH=12 AND D=6 THEN LET D=2 

790 IF R«=12 ftND D=5 THEN LET D=3 

BOO IF R11=22 AND D=6 THEN LET 0=1 

810 IF RI1=22 AND D=5 THEN LET D=2 

B20 IF RI1032 OR D03 THEN GOTO 850 

830 LET Ht='!TS ft LONG DROP' 



This Une replaces the ON 
GOSUB line, which the ZX8 1 
can't do. It works hke one long 
calculation, using the value of 
VB. The computer looks at 
each of the brackets containing 
"VB=" and puts a 1 if the 
bracket is true and a zero if it 
isn't. Try working through the 

V calculation using a particular 
value of VB to see how it works. 





This replaces the tree section 
in the main program. Check 
the plan if you want to see what 
iocation 32 is. 
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840 RETURN 

850 IF F(27)=0 OR Rfi<>34 THEN SOTO 880 
BiO LET «$=■ GHOSTS HILL NOT LET YCif HOVE' 
B70 RETURN 

B80 If R«(>2? OR Cn)=0 OR F(34)=l THEN GOTO 910 
890 LET nt="HflfiICfiL BflflfilER TO THE NEST" 
900 RETURN 

910 IF R«<14 OR Rf!>17 OR F(201=l THEN 60T0 950 
920 IF RH=14 BKD DOl AND D04 THEN SOTO 950 
930 LET M="TO0 DftRK TO HOVE" 
940 RETURN 

950 IF C(15)=0 OR RH036 THEN GOTO 980 
940 LET Ht="THE BOAT IS TOO HEAVY" 
970 RETURN 

980 LET RL=LEH(Rt(RHll 
990 LET QN=fiH 
1000 FOR 1=1 TO RL 
1010 LET U*=RHRH)(I TO I) 
1020 IF UI='S" fiND D=J THEN LET OM=OI1-6 
1030 IF Ut="S' AND D=2 THEN LET 0H=O«+6 
1040 IF m='r AND 0=3 THEN LET DM=Ofl-l 
1050 IF Ut='E' AND D=4 THEN LET OH=Of!+I 
!0M NEH I 
1070 LET H*="OK' 

1080 IF RN=Ofl THEN LET «='CflNT GO THAT W" 
1090 LET R11=0M 

1100 IF D<1 THEN LET M$="GD WHERE ?" 
1110 IF RH025 OR F(23)=0 THEN GOTO 1150 
1120 LET Rl(3n=" 

1130 LET HJ="THE DOOR SLAHS SHUT BEHIND VOU' 
1140 LET F(23)=0 
1150 RETURN 

1160 IF DB>0 AND OB<=G THEN GOTO 1190 
1170 LET «t="yOU EftNT SET ■+«« 
lieo RETURN 

1190 IF L(OB)<>R« THEN LET Ht="lTS NOT HERE" 
1200 IF F (OB) =1 THEN LET l«="IIHftT 't«f ''• 
1210 IF CIOB)=I THEN LET H*="YOU ALREADY HAVE IT 
1220 IF L(OB}<>RH OR F(QB!=I THEN GOTO 1260 
1230 LET C10B)=1 
1240 LET «t='yOU HAVE THE •+« 
1250 LET L(0B)=57 
1260 RETURN 
' 1270 IF RH027 OR IDB02B AND 0BO291 THEN SOTO 1300 
1280 LET M$="DRfiHER OPEN' 
1290 LET F(171=0 

1300 IF RH=16 AND 0B=25 THEN LET Ht='IT IS LOCKED" 
1310 IF RM024 OR 0BO32 THEK GOTO 1340 
1320 LET M='CREEPY" 



Check each line before you 
press NEWLINE. It is much 
easier to try and spot your 
mistakes as you type than 
having to search through the 
whole listing to find them. 




See pages 24-25 for 
more about how the 
subroutines work. 




Imagine your adventure is 
going to be sold in a famous 
chain of shops and design 
and write an atmospheric 
insert for its cassette box. 




Check the two versions of 
Haunted House against each 
other to see where the 
programs differ. 



Don't forget, you can add 
extra verbs without adding 
extra subroutines. You 
could add LOOK for 
example and make it use 
the EXAMINE subroutine. 



LET F(2)=0 

RETURN 

IF DBO30 THEN GOTO 1380 

LET M»="SO«ETHISS HERE" 

LET F(18)=0 

IF 0B=2S OR 0B=29 THEN LET M="THERE IS A DRftSER' 

IF 0B=33 OR QB=5 THEff 60SiJB 1440 

IF Rlt=27 AND 0B=35 THEN LET H$="SOHETHINfi BEYOND" 

IF 0B=32 THEN GOSUB 1270 

IF Rn=9 AND 0B=3] THEN LET «$="THflTB DISGUSTING" 

RETURN 

IF ft«=2t ftHB 0B=33 THEN LET W^'THEY ftRE CEHIHIIC WORKS" 

IF (0B=3 OR 0B=36) ftND C(3I=1 AND F( 341=0 THEN LET Mt="USE 

tiORD NETH CARE - XZANFAR" 

IF C(5}=1 AHD 0B=5 THEN LET t1t='AS ALIEN TONGUE" 

RETURN ^- 

LET M="DK '+« 

IF C(31=0 OR DB034 THEN GOTO 1520 

LET H*="KAGIC OCCURS' 

IF RM029 THEN LET R!1=INT(R«iD»3i)+l 

IF C(3)=l AHD 0B=34 AND RH=29 THEN LET F(34)=l 

■ RETURN V__ 
IF C(12)=l THEN LET N$='YOU HAVE HADE A HOLE" 

■ RETURN 
IF C!H)01 AND RMMl THEN LET Ht="THIS IS M TIHE FOR BANES" 

' IF OB=M ftND C(M)=t THEN LET «='VOU SHUNS IT" 

IF OB=53 AND C(13)=l THEN LET H»="HHO0SN" 
' IF 0BOI3 OR CU3)=0 OR Rfi<>27 THEN GOTO 1630 

LET R»fR»ll="l(N" 

LET Dt(R»!) = "STUDV HITH SECRET RQDft" 

LET H*="VOU BROKE THfiOUGK" 
i RETURN 

IF RH032 OR C( 14)01 DR DB014 THEH 6DT0 liSO 
I LET H»="G0Ifi6 DOWN." 

LET Rfl=RH-l 
I SOTO 149(1 

■ LET t($='HHERE TD ?" 
I RETURN 

■ IF 0B=!7 AND C(17)=l AND C(B)=0 THEN LET M»="IT HILL BUfl« YOUR HANDS' 
I IF DB=17 AND Cn7)=l AND C(9)=(l THEN LET l!t="NHAT UITH ?" 

' IF 0BO17 OR C!17)=0 OR C{9)=0 OR C(B)=0 THEN GOTO !750 

I LET Ht='lT CASTS A FLICKERING LI6HT' 

! LET F(20}=1 

I RETURN 

I IF F (201=0 THEN GOTO 1790 

) LET H»="EniNGmSHED' 

! LET F(20}=0 

I RETURN 

I IF 0B=26 AND C( 161=1 THEN LET «='HISSSS" 





Perhaps you can 
think of a better verb 
than "urdight". 
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1310 IF 0BO2fc OR CUMOl OR F(26)=0 THEN GOTO 1840 

IBZO LET B$='PFFT - EOT THEM" 

3830 LET F (261=0 

B40 RETURN 

1850 IF DBOIO m C(10)=0 OR C(1I1=0 THEN BOTD 1910 

18&0 LET F(24}=1 

1870 LET W=*Si(nCHED OH" 

laaO IF F(27)=0 OR F(24)=0 THEN GOTO 1910 

1B90 LET M="VDll yftCUUnEB THEM UP" 

1900 LET F(Z7J=0 
Vj.910 RETURN 
/l920 IF RK=27 AND (0B=27 Oft 08=28) THEN GOSUB 1270 

1930 IF RM016 OR DB025 OR F (251 = 1 OR EEIS}=0 THEN SOTD 19B0 

1940 LET F(25)=l 

1950 LET HI='THE KElf TURNS - CLUNK" 

!9i0 LET R*(RH)='SEII" 

1970 LET IJ*(Rn)='W6E OPEN DOOR" 
y980 RETURN 
fm<i IF C(OB)=0 THEN SOTO 2030 

2000 LET C(OB)=0 

2010 LET K*='DON£' 

2020 LET L(OB)=RH 
030 RETURN 

2040 LET S=0 

2050 FOR 1=1 TO 6 

2060 IF C(n=l THEN LET S=Sti 

2070 HEH 1 

2030 IF S=17 ft»D C(15}=0 AND RM031 

RETURN TO PORCH FOR FlNfiL SCORE" 

2090 IF S017 OR RH031 THEN SOTO 2129 

2100 PRINT "DOUBLE SCORE' 

2110 LET S=S*Z 

2120 PRINT "YOUR SCORE "iS 

2130 IF S<18 THEN GOTO 2160 

2140 PRINT "tlELL DDHE - VOO HAVE FINISHED" 

2150 STOP 

2160 PRINT "PRESS NEW LIKE TO CONTINUE" 

2170 INPUT Qt 

2180 LET N»="OK" / 

V^I^O RETURN ( 

i^Z200 FOR 1=1 TO M 

2210 LET F(I)=0 / <i 

2220 LET C(I)=0 

2230 NEH I 

3240 LET R*(31)=*K" 

2250 LET Rt(27)='t)" 

2260 LET R*(161="tlE" 

2270 LET Dt(27)="STUDY, DESK AND KALL" 

2280 LET D«(16)="HfiLL HITH HUGE MODEN DOOR' 



Lines 2300 to 23S0 set the flags 
for the invisible objects, so you 
do not need to type in flag data 
. separately. 





yo 
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When you DIMension a string 
array on the ZX8 1, you need to 
tell the computer the length of 
the longest item you are going 
to store in it. The computer then 
reserves 36 (or however ipany) 
spaces of this length. This 
wastes memory space if you 
have one item which is much 
longer than all the others. 



THEN PRINT 'VOU HfiVE EVERYTHINB 




Lines 2240 to 2380 reset the 
variables which have been 
changed during a game, so that 
you can play a new game. 



,'/ 
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LET I1t="0r 
LET F(1B)=1 
LET F(17)=i 
LET Ft27)=l 
LET F(2)=l 
=1 



Th e data : Load the data in this order. (See page 40.) 



DESCRIPTIONS 



--i 



J LET F{2i) 

} LET F(23) 

) LET LL=60 

) LET fi«=3I / 

) LET Ft=" 

) FDR 1=1 TO 6 

) PRINT I 

) I«m Li I J 

) NEXT I 

) fiETURH 

I DIM fi*{36,4) 

) DIN 0*!34,3O) 

) LET V=25 

) DIH Vt(V,9} 

I LET N=36 

) DIN Ot(«,n) 

I Din C(U) 

) DIN F(H) 

I LET E=1B 

) DIN L(G) 

I PRINT 'DESCRIPTIONS 

) FOR 1=1 TD 3i 

I PRINT I 

) INPUT MID 

' NEXT I 

) STOP 

PRINT "ROUTES" 
I FDfi 1=1 TD 34 
' PRINT I 
I INPUT R*(I) 
I NEXT I 
I STOP 

PRINT "OBJECTS" 
I FOR 1=1 TO H 
' PRINT I 
I IdPUT 0*{I) 
' NEXT I 
I STOP 

PRINT "VERBS" 
I FOR IM TO V 

PRINT I 

INPUT Ut!I) 

«EXT I 
■ STOP 



13 SPfiCES 



\ 



\ 



ENTRANCE TO KITCHEN, KITCHEN WITH GRIMY 
COOKER, SCULLERY, DUSTY ROOM, REAR TURRET 
ROOM, CLOSET WITH COAT, BACK HALLWAY, DARK 
ALCOVE, SMALL ROOM WITH RUBBISH, SPIRAL 
STAIRCASE, WIDE PASSAGE, SLIPPERY STEPS, 
HALLWAY TO REAR, POOL OF LIGHT, VAULTED 
HALL, HALL WITH HUGE WOODEN DOOR, TROPHY 
ROOM, CELLAR ROOM, FRONT HALL, SITTING 
ROOM, SECRET ROOM, STEEP MARBLE STAIRS, 
DINING ROOM, VAULT WITH COFFIN, FRONT LOBBY, 
LIBRARY OF EVIL BOOKS, STUDY WITH DESK. HOLE 
IN WALL, COBWEBBY ROOM, VERY COLD CHAMBER, 
SPOOKY ROOM, FRONT PORCH, TOP OF FRONT 
TOWER, SLOPING CORRIDOR, UPPER GALLERY, 
BOAT HOU SE . SOGGY PATH 
ROUTES 



CT 



SE,WE,W,SE,WE,W, 

NS, SE, WE, NWUD, SE, SWUD, 

NS, NSE, WE, WE. NSW, NS, 

NSE,NSW,S,NStJD,N,N, 

N,NE,W,NSE,WE,SW, 

N,WE,WE,NW,E,NW 



The commas show 
where you should press 
NE WLINE between data 
items. DONT TYPE THE 
COMMAS. 



OBJECTS 



^ 




a 



\ 



PAINTING, RING, MAGIC SPELLS, GOBLET, SCROLL, 
COINS, STATUE, CANDLESTICK, MATCHES, 
VACUUM, BATTERIES, SHOVEL, AXE, ROPE, BOAT, 
AEROSOL, CANDLE, KEY, NORTH, SOUTH, WEST, 
EAST, UP, DOWN, DOOR, BATS, GHOSTS, DRAWER, 
DESK, COAT, RUBBISH, COFFIN, BOOKS, X2ANFAR, 
WALL. SPEL LS 



VERBS 



HELP, CARRYING?, GO, N, S, W, E. U, D, 
GET, TAKE, OPEN, EXAMINE, READ, SAY, 
DIG, SWING. CLIMB, LIGHT, UNLIGHT, SPRAY, 
USE, UNLOCK, LEAVE, SCORE 



STARTING LOCATIONS FOR OBJECTS 



^ 



(You must type m this set of data each time you run 

the program.) 

30,24,21,32.5,8, 

16,26.2,13,14,36, 

18,11,35,3,27,6 



Extra tips and hints 



1 . Use integer variables 



On some computers you can put a % sign 
after number variable names to show that 
you only want to put integers or whole 
numbers in them (numbers without 
anything to the right of the decimal point 
that is). So variable V becomes V% and so 
on. You can do this on the BBC, TRS-80, 
Dragon, TRS-Color and Oric. It is useful to 
do this because it saves memory space and 
increases the speed by as much as 50% . 
The speed is particularly noticeable when 
the computer is executing long loops. 



2. Think about screen presentation 



3. Watch your spelling 



If you have enough spare memory, you 
could improve the way the game looks on 
the screen. You could add a graphics 
routine for the opening title for instance and 
make the text flash on and off at particular 
points in the game, such as when the candle 
fhckers or the ghosts appear. The text need 
not be printed at the edge of the screen, nor 
need it all be the same coloiff . You could 
make use of coloured borders and 
backgrounds too. 



5. Use REM statements 



When you are writing a program as long 
and complicated as an adventure, it is a 
very good idea to put REM statements in 
front of each section. You are quite hkely to 
get confused as to which section is which if 
you don't. When you have finished the 
program, though, take the REMs out - they 
take up memory space, slow the program 
up and aUow unscrupulous players to cheat. 



6. Use helpful variable names 



Try to name your variables so that it is easy 
to remerrier what each one is e.g. OB for 
objects, MK for mistakes, and so on. If you 
have plenty of memory space and your 
computer will allow you, it is a good idea to 
use long variable names to help you 
remember what each variable is, e.g. 
instead of V use VERB. Make a list of your 
variables and what they are anyway, so you 
don't mix them up while you are writing the 
program. 



7. Keep it simple 



Don't be too ambitious with your first 
games. A simple, well-thought-out game 
will be more fun to play than a confused, 
complicated one. Not everyone wants to 
play a game which goes on for days. 



If you are not quite sure how to speU a word 
you want to use in the game, check it in a 
dictionary. Yoiu: computer doesn't know 
how to spell and will store whatever you tell 

it in its memory. This could be very 

frustrating for the playe r who is using the I 8 KeeDitfriendIv 

correct version and keeps getting error ' 

messages because the computer doesn't 
recognize the word. 



4. Spread the action 



Some adventure games are a bit boring to 
play because everything happens in the 
same place. Try to make sure there are 
46 interesting things all through the game. 



When you have written your game, look at 
the comments to make sure they are not 
ambiguous or misleading. Instead of "TOO 
DARK", for instance, you could say "YOU 
NEED A LIGHT TO GO HERE". Remember, 
something that is obvious to you will not be 
at all obvious to a player. Make some of 
your comments funny too as this will help 
the player feel the computer is really talking 
to him. 



Answers to puzzles 



Detective game puzzle (page 1 3) 

Here are some suggested solutions for the problems m the detective game. See how 
they compare with the solutions you thought of. 

1. You will only see the hair if you instruct computer to examine coat. You cannot take 
hair unless you have a clean envelope to put it in. 

2. You need a key to open the drawer, a magnifying glass to see the thread and a second 
clean envelope to put it in. 

3. You need plaster and a container of water to make a plaster cast of the footprint. 

4. You need talcum powder to show up prints and sticky tape to lift print off surface to 
take away. 

5. You need a portable blood analysis kit (described in game as a box containing bottles 
and other scientific equipment). 

6. You need a handkerchief to pick up the stick and a polythene bag to carry it in. 

Adventure brain teasers (page 1 5} 

Remember there are no "correct" answers to these puzzles. Here are some suggested 
solutions. 

1 , Lift the carpet and find a trap door, 

2, Use tiie handkerchief as a mask (assuming drowsiness is caused by a gas in the 
room), look inside rucksack and find a flask. Open the flask and find black coffee. 
DriiJc coffee, 

3, Read scroll (which is a proclamation to free the slaves). 

4, Throw the dessert (which happens to be custard pie) in the arch-villain's face. Grab 
the remote control and escape , 

Puzzle (page 28) 

Here is how you can change the program to limit the number of objects that can be 
carried at one time. 

You need two new variables, here they are called CO (which stands for "carried 
objects") and CL (which stands for "carrying limit"). Add these to the end of line 70 like 
this: 
70...:CO=0:CL=8 

You then need to tell the computer to add one to CO in the GET routine when the 
player picks up an object and subtraa one from it in the LEAVE routine if he drops an 
object. Do this by addingto the ends of lines 1010 and 1490 like this: 
1010.,,:CO=CO+1 
1490.,.:CO=CO-1 

Now add a new line to the GET routine to check if CO equals the limitbef ore 
proceeding virilh the rest of the routine. 

(CL need not be 8, but it cannot be less or the player would not be able to carry aU the 
treasures to the finish.) 



Going further 

Once you have written an adventure, you could join the BBC Micro Adventure/Fantasy 
Club. This is a postal club and it provides a library of adventure and fantasy games written 
by members for the use of other members. To find out more, write to: 
BBC Micro Adventure Club, 29 Blackthome Drive, Larkfield, Kent ME20 6NR, England. 
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Adams, Scott, 4 

Adventure, 4 

adventure games, different 

types, 4 
array error, 32 
arrays, 16, 17, 18,31,38 
BASIC 3, 4, 16, 18, 23, 38, 39, 40 
BBC, 3, 23. 29, 31, 33, 36, 46 
BBC Micro Adventure Club, 47 
branch to subroutines, 19, 24, 

34 
caps lock, use of, 38 
carrying array, 17, 18 
changingthe program, 28-32, 

38 
Colossal Cave, A 
combinations of words, 22, 23 
commas, in data, 18, 37, 46 
CPUs, 17 

Crowther and Woods, 4 
2D arrays, 17 
2D games, 26 
3D games, 9, 26 
data, 16, 17, 18 

loops, 18 

out of, 32 

storingthe, 16, 17,18 

forZX81game,45 
database, 5 
debugging, 32 
descriptions, 19, 20, 25, 28, 33 
descriptions of the locations 

array, 16,17,20,31,39 
deteaive story adventure, 7, 1 1 
DIM, 16, 17, 32, 44 
dimensioning, 16, 17 
disc-based adventures, 4 
Dragon, 3, 29, 46 
dummy subroutine, 23 
error code, 32 
error messages, setting up in 

game, 19,23,24,25,34 
feedback, 19, 20, 25, 33 
first adventure game, 4 
flag arrays, 17, 18, 24, 27, 32, 44 
flag registers, 17 
Fortran, 4 

"gettable" objects, 17 
Go subroutine, 26, 27, 34, 41 
GOSUB, 19,23,29 
GOTO, 19 
graphics, 4, 46 
grid, drawing a, 8, 9 
HELP, 13,21 
hiding places, 6 
HOME, 33 



IF... THEN, 38 

initialization, 18, 10, 20, 30, 32, 33 

input, 19,21,33 

input analysis, 19, 22 

instructions, player's, 21 

integer variables, 46 

interactive database, S 

INVENTORY, 13 

invisible objects, 17, 18 

LEFT$,40 

LET, 38, 40 

listing, program, 33-37 

Spectrum (Timex 2000) 

version, 38 

ZX81 (Timex 1000) version, 

39-45 
LOAD subroutine, 30, 31 
locations, 6, 8, 16, 17, 40, 41 

numbering of, 8, 12 
locations array, 16, 17, 20, 39 
loop, 18, 20 
machine code, S 
magic, use of, 6 
rtuip, of adventure world, 6-7 
master plan, B, 11, 12, 14, 15, 16, 

26 

ZX81 version, 39 
memory, amount used up by 

game, 28 
Microsoft-style BASIC, 3, 33 
MIDI, 40 

mistakes, correcting, 32 
no match, 22 
number arrays, 17 
numbering of locations, 8 

objects, 10, 12 
object word array, 17, 18 
object words, 40 
one-way routes, 8, 9 
one-word commands, 2 1, 23, 26 
ON . . . GOSUB, 24, 25, 30, 32, 33, 

41 
on range error, 23 
Oric,3,29,33,34,37,46 
out of data, 32 

override conditions, 19, 24, 32 
per\alties, 30 
planning, 5-15 
point of the game, 6 
problems for player, 10 
program 

changing the, 28-32 

structure, 19 

writingthe, 19-27 
props, 10, 12 
QUIT, 31 
READ... DAT A, 18,39 



REM statements, 46 
RIGHTS, 40 
RND, 34, 35 
routes,8,9, 16, 17,40 

one-way, 8, 9 
routes array, 17, 18, 20, 31 
rules, 3 

saving the game, 30, 3 1 
SCORE, 3 

subroutine, 30, 36, 44 
scoring, 10, 30 
screen presentation, 46 
Sinclair (Timex) computers, 3, 

18,21,33,38,40 
single-letter commands, 26 
sketch map, 6 
soimds, 29 
Spectrum, 3, 29, 33 

version, 38 
spelling, 46 
Stanford University, 4 
storing the data, 16, 17, 18 
string arrays, 16 
string data (for Spectrum), 38 
string variables. 2 1, 22 
subroutines, 19,24,25,26,31, 

34,42,43 

dummy, 23 
themes for games, 7 
time limit, 28 

Timex 1000, 3. 18. 2 1 , 33, 39-45 
Timex 2000, 3, 2 1,33, 38 
tools, 12 

treasures, 8, 10,11 
TRS-80, 46 
TRS-Color, 29, 46 
two-wordsentences, 3, 21 
usehil objects, 10, 11, 12, 13 
variable i\ames, 46 
variables, 16, 20, 26, 30, 33, 38, 

40,44 

string, 21 
verbs, 13, 17, 24, 25, 34, 40, 43 
verbs array, 17,18 
verb string, 16, 22 
VIC 20, 29, 33, 34, 35, 37 
walls, checkirvg for, 27 
weapons, 12 
wordlist, 10, 12, 16 
word not found in memory, 16 
word-splitter routine, 2 1 
word string, 16, 22 
vmting the program, 19, 20, 21, 

22, 23, 24, 25, 26, 27 
zero space, use of, 16 
ZX81, 3, 18,21,33 

version, 39-45 
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